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Preface 



Unlike many books on the Commodore 64, this one is concerned purely 
with the use of graphics and sound. Only two diversions occur, and 
these are a brief look at adding commands to the existing Commodore 
Basic command set, in order to improve upon that Basic, and a 
disassembly for a machine code assembler/disassembler which you 
can use to speed up machine code program development time. 

Although the longest chapter in this book is indeed concerned with 
sprites, as the title would suggest, all aspects of using graphics on 
the Commodore 64 are looked at in some detail, including producing 
user defined characters and using and manipulating high resolution 
graphics. 

The sections on sound cover such advanced topics as ring modulation 
and filtering, as well as taking more than a passing look at all the other 
features that make the Commodore 64 such an excellent computer 
to 'have a play around with'. 

By the end of the book, readers should be much more familiar, and 
at home with, the use of both graphics and sound, and be much better 
equipped to incorporate both of these outstanding features into their 
own programs. 

Throughout the book there are numerous example listings, illustrating 
the topics under discussion in each section, and some of the programs 
included cover such items as designing and creating data statements 
for multi-coloured sprites, turning the keyboard into a synthesiser (and 
introducing the reader to musical effects such as glissando and 
synchronising notes), a delightful piece of animation using the existing 
character set, and an extremely useful assembler/disassembler for the 
Commodore 64. 

All the lengthier programs have been gathered together on one cassette 
for those who have neither the time nor the patience to type them 
all in from the listings given. This cassette is available direct from the 
publishers. 

I'd like to thank everyone who has directly or indirectly contributed 
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anything to this book, but if any mistakes remain they are purely my 
own: blame me! 

Finally, thanks to mum and dad. I know you probably wouldn't know 
what a computer was if it fell on your head, but who cares ? Keep 
up the editing, and keep up the gardening, and say hello to everyone 
'up north'. A'reet ? 

P.G. 
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1 

64 Graphics and Sound 

The strengths and weaknesses of the 64 

As a home computer, the Commodore 64 stands out from most of 
the others currently available because of the quality of both its graphics 
and its sound. 

On the graphics side, the standard Commodore 64 can handle sprites 
(both single colour and multi-colour), user defined characters, single 
pixel addressing of the screen, and has built into it a total of 16 different 
colours which can be displayed at any one time. 

By the way, some of these terms may not mean to much to you at 
present, but we'll come to them all in time! 

With sound, the 64 has the ability to emulate many custom built musical 
synthesisers, with three independent voices covering an eight octave 
range, each voice capable of being played in any one of four different 
wave forms: pulse, sawtooth, triangle, and noise. 

With features such as these, you'd be readily forgiven for thinking that 
the Commodore 64 has also got built into it a superb version of the 
programming language Basic, in order to handle all these outstanding 
capabilities. 

Well, there the Commodore 64 and the rest of the world part company, 
because the version of Basic installed in it is primitive to say the least. 
There are no commands devoted to graphics, and there are no 
commands devoted to sound, unlike most other computers that 
attempt to compete, which come equipped with a wealth of commands 
like FILL, PLOT, ENVELOPE, and so on. 

Apart from these obvious criticisms of the version of Basic, there are 
many others that could be levelled at it. Structuring is virtually 
impossible, there is no PRINT USING, procedures cannot be defined, 
and there are plenty more deficiencies where those come from. 
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Presumably the reasons behind the resignation in January 1984 of Jacl< 
Tramiel, the company supremo who started the whole thing off in the 
first place, were to do with things other than the level of Basic used 
in his computers. However, if he'd been a programmer that would 
have figured very highly indeed! 



Back to basics 

Despite this, given what we have got in the Commodore 64 there is 
still a lot that we can do simply from Basic. It's just that it isn't exactly 
easy, since there are only two commands that we can use to affect 
any of the registers in the Commodore 64, namely PEEK and POKE. 

As you probably know, POKE is used to affect the content of a memory 
location, be that location on the screen, in the Commodore 64's video 
chip, or wherever. PEEK simply tells us what is stored at any location 
at any one time, although please note that some locations are what 
is termed 'Read Only', and will return misleading values if PEEKed. 
Like all companies. Commodore can be a bit secretive about how their 
machines do what they do. 

Later on in this book we'll be going into more detail about all the 
technical terms encountered, explaining both what they mean, and 
how they are used. 

Since we can only use these two commands some of the operations 
we'd like to perform - for example wiping out an area of memory in 
order to use it to display a high resolution screen - can take quite some 
time. However, this is only true if we remain with Basic, and in one 
section of this book we'll be giving you a set of machine code routines 
to perform some simple tasks with high resolution plotting and other 
graphical functions. 

As mentioned earlier, one of the reasons why using both graphics and 
sound on the 64 is so difficult, is its version of the programming 
language Basic that we have to come to grips with. There are a number 
of packages already on the market that attempt to overcome these 
difficulties by the straightforward process of simply adding more 
commands to the repertoire that you already have. 

But these packages cost money, in at least one case a great deal of 
money, in order to correct something that should never have been 
wrong in the first place. 
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How much better it would be if you, the person actually using the 
machine, could correct these faults yourself. Commodore's own 
manuals are not at their best in this area, and so the last part of this 
book is devoted to explaining just one way in which you could easily 
add commands to the existing command set. There are a couple of 
commands there to get you started, and after reading through the book 
you should be in a position to add many more of your own. 

The commands could be added as words (e.g. PLOT), symbols (e.g. 
'*'), but as we're generously given a set of function keys at the right- 
hand side of the keyboard, why not use them? No one else seems 
to, so one of the programs in the final chapter will redefine all the 
function keys to be something useful, and in a couple of instances 
something unusual as well. 



A word of explanation 

If all this seems to be taking us away from the aims expressed in the 
title of the book, don't panic (as they say). Sprites and sound on the 
Commodore 64 are indeed well covered here, but we couldn't write 
a book about graphics and music without documenting all the other 
wonderful features of the machine, such as high resolution plotting 
and redefining the existing character set. Publishers just like alliterative 
titles, that's all! 

Similarly, as it is so difficult to do everything in Basic using only what 
we're given with the 64, it makes sense to dive into machine code to 
perform some of the tasks that would take an eternity in Basic. If you're 
unfamiliar with machine code, well, there's no great need to worry. 
Everything is covered at a relatively gentle pace, and just to help you 
out the final chapter of the book is a disassembly of an assembler/ 
monitor for the 64, which should make machine code life a lot easier. 

If the thought of typing it all in is a daunting one, that and all the other 
major programs in this book are available on cassette from the 
publishers at nominal cost. If you do type it in and can't get it working, 
and then insist that there's something wrong with the listing, bear in 
mind a simple fact: how do you think we're able to sell a working copy 
of it on tape if it's incorrect? The program was used to list itself I 
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Some definitions 



Before we enter into the nitty-gritty of it all and find ourselves merrily 
altering characters and moving multi-coloured sprites about the screen 
without understanding a word of what's going on, let's get a few 
definitions out of the way first. 

These are all terms that you'll encounter throughout the rest of the 
book, so if we can assume a working knowledge of Commodore's 
version of Basic (although we don't expect you to be the world's 
greatest programmer!), let's start with decimal and hexadecimal. 

We're all used to the numerical system of counting as used in the 
majority of the western world. This relies on the numeric symbols 
to 9, and since this gives us ten symbols in all to play with, we describe 
this system as having a numerical base of ten. Using those ten symbols 
we can then group them together to express larger numbers: 567, 1938, 
and so on. 

What does the number 1938 really represent? Remembering that we're 
using a base of ten, the number 1938 can be thought of as being 8 
times 10 to the power zero (which is mathematically defined to be equal 
to 1), plus 3 times 10 to the power 1, plus 9 times 10 to the power 
2, plus 1 times 10 to the power 3. This is equal to 8, plus 30, plus 900, 
plus 1000, or in other words 1938. 

This is a convenient system for us humans to understand, but 
unfortunately computers live in a world of their own where numbers 
with a base of ten do not mean an awful lot. 

Inside a computer everyting is stored as 'bits'. A bit is simply the 
smallest piece of information that a computer can handle, and a bit 
can either be turned on, or off. Another way to think of that would 
be to say that a bit can either equal one, or zero. In other words we 
have just two numeric symbols to work with, and thus computers are 
said to work with a binary system. 

Representing numbers in binary is extremely tedious, as the number 
of zeroes and ones required to represent, say, 1938, is a very large 
number. In fact, it works out to be 11110010000, a ludicrous figure 
to deal with for humans, albeit a convenient one for computers. 

So the inevitable happens and we have to arrive at a compromise. 



12 



There are a number of systems available which have been introduced 
over the years, but arguably the most popular, and certainly the easiest 
to grasp, is the hexadecimal one. 

This has 16 numeric symbols to play with (hence the term 
hexadecimal), but since our own decimal system has a mere 10, we 
have to resort to using other things. The system in fact uses letters 
of the alphabet, and in full the symbols used are 
0, 1 ,2,3,4,5,6,7,8,9, A, B, C, D, E, F. 

Here the letter A in the hexadecimal system (let's call it hex from now 
on) is used to represent the number 10 in the decimal system, B 
represents 11, and so on up to F, which is used to represent 15. 

So, our earlier number 1938 if it is expressed in hex becomes $0790, 
the dollar sign telling us that this is a hex number. To check it, it is 
equal to times 16 to the power zero, plus 9 times 16 to the power 
one, plus 7 times 16 to the power 2, or plus 146 plus 1792, which 
is indeed equal to 1938. 

Hex numbers can look a little confusing at first, but within a relatively 
small space of time you'll find them easy enough to use. 



Bits and bytes 

How does this help us and the computer? It's all a question of bits 
and bytes. A bit, as we've seen, can be either on or off, and is the 
smallest amount of information that a computer can handle. 

Being a small amount of information, everybody likes to speed the 
action up by handling more than just one bit at a time. On the 
Commodore 64 bits are grouped together in units of 8, and this 
grouping of 8 bits is called a byte. Incidentally, half a byte is called 
a nibble! 

So inside one byte we have 8 bits. This can be looked at as follows: 

Bit 1 2 3 4 5 6 7 
Value 1 2 4 8 16 32 64 128 

The values are arrived at using the binary system, and as you can see 
are simply multiples of 2. Now we've seen that a bit can be either on 
or off, so if every bit was turned on the value that would be held in 
that byte would be equal to all those numbers added together. You 
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probably won't be too surprised to learn that 128 plus 64 plus ... etc. 
is equal to 255, the maximum value that can be put (or POKEd) into 
any particular byte. 

Now you can see why POKEing about inside the computer manages 
to produce such amazing results. We're not only affecting that memory 
location, we're also affecting every bit in it as well. Thus POKEing 1024 
with, say, 77, turns on the bits that add together to give a value of 
77, and turns off all the others. In this case bits 6, 3, 2 and will be 
turned on, and bits 1, 4, 5 and 7 will be turned off. 

If we want to alter bits 6, 3, 2 and 0, but keep the others as they were 
regardless of whether they are on or off, we need to use the OR 
command, in the form: 

POKE LOCATION, PEEK(LOCATION) OR 77 

This can be important in some cases, where we want various bits to 
remain as they were, but to alter some of the others for a particular 
purpose. 

We'll be seeing a lot more of this later! 



And now some graphics 

Now that we know all about hex and decimal, PEEK and POKE, bits 
and bytes, let's start on the first major section of this book, which deals 
with the powerful graphical capabilities of the Commodore 64. 
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2 

General Introduction to Graphics 



The concept of using graphics on home computers is relatively recent, 
as indeed are home computers themselves. Only with the advent of 
machines like the Commodore 64 could one seriously talk about 
displaying in detail, sometimes incredible detail, any kind of graphical 
information. 

Going back in time a little, the earlier Commodore computers all 
suffered when trying to display graphical characters. The Vic 20 had 
the rather obvious limitation of its 22 character wide screen. As 
mentioned in the introduction, the smallest item of information that 
the computer can handle is a bit. Graphically a bit is referred to as 
a pixel, which most people are inclined to think of as a small creature 
that lives at the bottom of the garden. However, in the world of 
graphics a pixel is the smallest thing that can be displayed on the 
screen. 

Screen resolution 

The actual characters that you see on the television or monitor screen 
are themselves made up of several pixels grouped together on a grid 
eight pixels square. In chapter five we'll be giving you a program that 
allows you to redraw these characters and create your own character 
set (as well as showing you one intriguing POKE that instantly alters 
the 64 character set if used in conjunction with colours 8 to 15). 

Thus the maximum screen resolution that can be achieved is directly 
linked to the number of characters across the screen that the computer 
is capable of displaying. Since each character is 8 pixels across, 
multiplying the number of characters by 8 gives you the maximum 
resolution. So in the case of the Vic 20 we're limited to 22 times 8, 
or 176 pixels: not very much. 

Since the Commodore 64 displays a more acceptable 40 characters 
across the screen, this gives us a resolution of 40 times 8, or 320, 
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horizontally. As it also displays 25 columns on the screen, this in turn 
gives us a vertical resolution of 25 times 8, or 200 pixels. 

Incidentally, you'll recall that the maximum number that you can POKE 
into any one register is 255. We've just mentioned that the horizontal 
resolution is 320, so how can you alter the last (320-255) 65 lines on 
the screen? In fact, you have to use two registers, as we'll see in chapter 
four. 

But it is worth mentioning it here, as it explains a fact or two about 
another well known microcomputer, namely the Spectrum. Why has 
that got a screen display of 32 characters across? Well, take 32 times 
8, which equals 256, and the maximum number you can POKE into 
a register is 255 (which is equal to 256 different values from to 255), 
and so graphics on the Spectrum are a whole lot easier to handle, as 
we only have to worry about one register handling certain things, not 
two! Easier both for the programmer and for the computer. 



Early days 

Before the Vic 20 Commodore had brought us the PET range of 
computers, with a screen display ranging from 40 to 80 characters 
across. However, the program to handle what would appear to be a 
very high resolution display was not written into those earlier machines, 
and had to be bought in from some other, independent supplier. 

Now it's all there if we want it, but they've still made it difficult to get 
at! Oh well, we'll get there in the end. 

Some of the things that we'll be covering later on include using the 
existing character set (all those funny little symbols on the front of 
the keys) to plot up histograms and bar charts, and to show just what 
can be done I've included a superb piece of animated graphic 
programming from one Don Denis. I take no credit for this: Don wrote 
it for the original PET machines many years ago, and I've just updated 
it to work on the 64. 

After the existing character set we'll romp along into sprites, and give 
you a few sprite generators for single colour ones and multi-colour 
ones, as well as telling you how to handle many sprites on screen at 
the same time. 

Following on from there we'll be showing you how to redefine 
characters, as well as giving you a program to make the whole job 
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an awful lot easier, and finally we'll end up with a look at high resolution 
plotting covering every pixel on the screen. 

But before we get there, why is it necessary to tell you any of this 
at all? Shouldn't it be easy enough to do it all anyway? 



With Commodore, nothing's easy! 

This statement is oh so true, as you'll probably have found out by now 
if you've attempted to cover anything graphical on the Commodore 64. 

To define sprites, for instance, requires a rather large sheet of graph 
paper (or a pixel pad!), and some painstaking work with a set of 
coloured felt-tip pens, before performing some rather complicated 
mathematics and issuing a ridiculous string of POKE commands. 

Don't worry: we'll make the going easier before we've finished. 

There are no commands to help in ordinary everyday graphics either, 
unlike most of the other popular microcomputers around at the 
moment. The Electron and the ever-present Spectrum both come 
equipped with a fine set of commands to make life easier for us all, 
but Commodore chose to disregard everything and make life very 
difficult indeed. 

True, once you do get a grasp of how everything works it can all 
become a whole lot easier, but getting started is certainly a struggle. 

The simple PRINT command, which you might reasonably expect 
would help us along the way, is of no real help at all, since PRINTing 
is slow, and you're very limited in what you can actually print onto 
the screen. You can't print sprites, for instance, or print onto a high 
resolution screen, although you can (with a bit of juggling) manage 
to print out some user defined symbols. 

Everything has to be handled by a whole series of POKEs, and to do 
that we need to know where to POKE things to. At the very simplest 
level, we need to know first of all where the screen starts in memory, 
and although this is an old illustration it's well worth repeating here 
for the sake of completeness. 
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The top left-hand corner of the screen then is memory location 1024, 
and POKEing a few numbers into that location will soon display 
something on the screen. 

As you can see, the screen covers 1,000 locations in all, and later on 
we'll be moving things about the screen with abandon. What, you 
mean you've tried POKEing things into location 1024 and nothing 
seems to have happened? 

Well, we said it wasn't going to be easy! There is yet another memory 
map that you're going to need, and this one is concerned with the 
colour of objects as they appear on the screen. 

Associated with every square on the screen is a corresponding memory 
location in the colour memory map. This starts off life at memory 
location 55296, and goes something like this: 
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Altering colours on the screen 

So in order to display something in any colour on the screen, we must 
not only POKE that something onto the screen in the first place, but 
we must also POKE a colour onto the same square. 

Thus, in order to have, say, a black letter A in the top left hand corner 
of the screen we need to: 

POKE 1024,65 : POKE 55296,0 

The complete list of colours is as follows: 

BLACK 8 ORANGE 

1 WHITE 9 BROWN 

2 RED 10 LIGHT RED 

3 CYAN 11 GREY COLOUR 1 

4 PURPLE 12 GREY COLOUR 2 

5 GREEN 13 LIGHT GREEN 

6 BLUE 14 LIGHT BLUE 

7 YELLOW 15 GREY COLOUR 3 
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These can also be accessed from the keyboard, by pressing the key 
marked CTRL and the key with the abbreviated colour word on it for 
the appropriate colour, which gives us the left hand side of the table 
listed above, or by pressing the key marked with the Commodore logo 
(known affectionately as the chicken head, from its strong resemblance 
thereto) and one of the colour keys for the right-hand side of the table. 

To go back to the screen and colour locations for a while, keeping 
track of something on the screen requires us to alter continually two 
locations, staring at 1024 and 55296 respectively. A sensible idea when 
POKEing anything onto the screen is to declare two variables at the 
start of a program (say SS = 1024 and CS = 55296 for Screen Start 
and Colour Start respectively), and update both of them all the time, 
rather than trying to calculate new memory locations every time you 
want to move something. It's easier for you, the programmer, but it's 
also surprisingly quicker in execution time as well. 

So, to bounce a little yellow blob up and down the screen, we need 
a program something like: 

5 BS=1024: CS=55296 
10 PRINT CCLR] 
20 F0RI=0TQ24 

30 POKE SS+ I »40 ,81: POKECS+ I *40 , 7 
40 F0RK=1T050:NEXTK 
50 POKE SS+I«40,32 
60 NEXT I 

70 FORI=24TOOSTEP-l 

80 POKE SS+I«40,ei:POKECS+I*40.7 

90 FDRK=1TD50:NEXTK 

lOO POKE SS+I*40,32 

no NEXT I 

120 GOTO 20 



Explaining this line by line: 

5 Declare variables for start of screen & colour 

10 Clear the screen 

20 Start of loop 

30 Update SS and CS (81 is our little blob!) 
40 Delay loop 
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50 POKE a space onto screen for animation effect 
60 Next part of loop 

70-110 Repeat everything in reverse order 
120 Start the whole thing off again! 

Not terribly exciting I grant you, but at least we've got something 
moving, in colour, on the screen! Altering the colour of our little blob 
by changing the values POKEd into CS in lines 30 and 80 will soon 
convince you which colours were meant to go together on the screen 
- and which were not! 

Two more locations which are of interest while handling ordinary screen 
displays are memory locations 53280 and 53281 . 

These control the colour of the border and the background of your 
screen display respectively, and by altering them using the colours listed 
earlier you can get a combination of colours that you think looks best 
on the screen. You'll notice later that a number of the listings given 
prefer a black screen with mainly yellow text and a brown border. This 
produces a fairly restful image on the eye. 

To see the whole lot in action: 

10 PRI^4T CCLR] 
20 FOR I =070 15 
30 F0RJ=0Tai5 

40 POKE 53280, J: POKE 53281,1 
50 NEXTJ , I 

You might like to insert a delay into this to slow the whole thing down 
a little, otherwise it looks a mite horrendous. 

A word of warning 

Before we start on the lengthier listings, if you're going to attempt 
the laborious task of typing them in there are a few things you need 
to know before getting going. 

These are concerned mainly with the idiosyncracies of the printer used 
for the listings in this book. First and foremost, it refuses to print any 
of the available Commodore 64 graphics keys, and where these have 
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been used, they've had to be replaced by an italicised version of the 
letter on which the graphic symbol is to be found. 

For instance, the Alpine Slopes program requires the use of the shifted 
X character to represent something. In the listing, this has come out 
as an italicised X. We'll give greater warnings in the write-up for each 
listing, since some of the programs are designed to be run in lower 
case, and thus letters which are meant to appear in capitals have also 
come out in italics. 



As if that wasn't enough, the listings have also had to be annotated, 
since the printer won't handle all the control codes used by the 64 
to indicate cursor left, clear screen and so on, as well as changing 
colours, and the graphics symbols obtained with the Commodore logo 
key. 

So here's a rundown of the symbols used to replace them: you've 
already seen one of them, [CLR] for clearing the screen. All you have 
to do is press the appropriate key on the keyboard. 



[CR] 
[CU] 
[CLR] 
[RVS] 



Cursor Right 
Cursor Up 
Clear Screen 
Reverse On 



[CL] 
[CD] 
[HOME] 
[OFF] 



— Cursor Left 

— Cursor Down 

— Cursor Home 

— Reverse Off 



Colours are indicated by the three letter abbreviations on the front of 
the keys, so just press Control and 4 if the listing shows something 
like [PUR]. 



Where keys are to be repeated, this is indicated in the following fashion: 



[CLR,2CD,5CR] 



for instance, means 'clear the screen, press the cursor down key twice, 
and the cursor right key five times'. 

Finally, the graphics keys accessed with the Commodore logo key 
(those on the left of the keys), are represented as [CBMC], or whatever, 
which means press the logo key and the C key at the same time. 



Conclusion 



Using graphics on the Commodore 64 is not easy. Commodore seem 
to have gone out of their way deliberately to make life difficult for all 
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of us, by not including any graphics commands in the Basic repertoire 
supplied with the machine. 

The 64 is capable of producing some very sophisticated displays indeed, 
as we will see, but to produce these requires a good deal of effort on 
the part of the programmer. 

To work all the time in Basic is possible, although some of the results 
thus achieved will take quite some time to actually appear on the 
screen, and so a certain knowledge of machine code is desirable on 
the part of the programmer. This we'll be covering throughout the 
book, and in particular in chapters ten and eleven, where we'll be going 
deeply into machine code and assembling/disassembling of programs. 

The next four chapters will introduce you to some of the things that 
can be achieved using the existing graphics character set, manipulating 
single and multi-colour sprites, producing and using user-defined 
characters, and finally covering the use of high resolution plotting on 
the screen. 

Throughout each chapter there'll be a number of short example 
programs that you can type in just to see what they do, and also in 
each chapter there'll be a number of lengthier listings of such things 
as useful utilities for producing multi-coloured sprites or designing your 
own character set. 

Finally, most of the chapters will have a 'non-utility' listing so that you 
can see what we've been talking about actually in action. The majority 
of these listings are just simple games, illustrating some of the concepts 
mentioned earlier on in the chapter. Each listing will have a full 
explanation of how it is doing what it is doing, and you are, of course, 
welcome to experiment with and expand on the listings as given. 

Throughout the rest of the book it would probably be useful to have 
some kind of reference guide with you that gives details of machine 
code instruction sets, and other more technical data, since we're not 
going to fill pages and pages with extremely long reference charts. 
However, they are useful things to know, and some of the otherwise 
unexplained POKEs and machine code instructions might lead you 
astray. 

Still, we'll try to explain everything as we get to it, so without further 
ado, let's take a look at the existing graphics set, and what you can 
do with it (in the nicest possible way, of course!). 
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3 

Using the Existing Graphics Set 



Introduction 

Before we can talk about using the existing cliaracter set, we need 
to know where everything is on the keyboard. This is not as fatuous 
a remark as it may sound, since some of the characters available to 
us are only accessible under certain circumstances. 

Could you, for instance, immediately produce the tick mark on the 
screen? And before you start looking - no, it isn't marked on the 
keyboard! 

The tick mark is, in fact, a mere POKE away. POKEing somewhere 
on the screen with a 122 brings the blighter up there, as long as you 
give it a colour as well. 

But before introducing a strange set of POKEs to you, let's stick with 
the Basic keyboard for a while and go on a tour. 



The Commodore 64 keyboard 
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You should by now be fairly familiar with the Return, Control and logo 
keys, as well as all the cursor movement ones. The function keys we'll 
leave out of it for now (we'll see them later in chapter ten), except 
to say that they can be used most simply by detecting their presence 
from within a program. 

Keys can be detected in a variety of ways, but the simplest is probably 
the old stand-by: 

10 BETA*: IFA*=" "THENIO 

In other words, if no key is being pressed, then loop back to line 10 
again and wait until something is pressed. Alternatively, you can use 
the fact that PEEK( 197) or PEEK(203) both return a value which relates 
to key being pressed, giving you 64 if nothing is currently being pressed. 

So either way can be used to watch for various keys being used, and 
the function keys can be used in the first instance by checking for CHR$ 
numbers 133 to 140, as in: 

1 O BETA* : I FA* < >CHR* < 1 33 ) THEN 1 

which will sit there until you press function key 1 . The other method 
could be written something like: 

1 I FPEEK (197) < ;: 4THEN 1 

which again will sit and wait until you press key F1 . To find out what 
the value stored in PEEK(197) is for every key on the keyboard, a simple 
program will allow you to check for each one as pressed: 

lO IFPEEK ( 197) =64THEN10 
20 PR I IMT PEEK (197): GOTO 1 

Thus a whole host of keys could be checked for in a 'menu' situation, 
and the program written to react accordingly. 

The majority of the other keys available from the keyboard that we 
haven't yet mentioned are the set of graphics characters, which we'll 
come to in a moment. The most interesting keys though are the ones 
labelled BLK, WHT, and so on. 
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And on to colour 



The use of colour is probably one of the greatest attributes of the 
Commodore 64, although as we'll see later the number of colours 
available to us at any one time is very much dependent on what graphic 
mode we happen to be in. The usual rule is that if we go for greater 
resolution on the screen, we can use increasingly fewer colours, and 
the opposite is also true: if we want to use more colours we must do 
so at the cost of the available resolution. 

For example, ordinary sprites can be shown in just one colour, and 
in any position on the screen will appear to be in that colour, with the 
screen background colour showing through. 

However, a multi-colour sprite can have three different colours used 
in it, as well as being able to show the screen background colour. 
However, a multi-colour sprite is more 'chunky' than its ordinary 
counterpart, since we have effectively to halve the horizontal resolution. 

But on power-up we have immediate access to all the 16 available 
colours, and these can be displayed in a number of ways. The simplest 
is by using the control and logo keys in combination with an appropriate 
colour key. The following program allows you to check through all 
sixteen colours, and is, incidentally, a good check to see whether or 
not you've tuned in your television set correctly. 

5 SS=1024:CS=55296 
10 FaRI=0T015 
20 F0RK=0T039 

30 POKE SS+K+ 1*40, 160: POKE CS+K+I*40,I 
40 NEXTK 
50 NEXT I 



When run, this program will produce a set of coloured bars across 
the screen. Using variations on a theme, a random checked pattern 
can be produced as follows: 

1 A»» " CTRL 1 , CTRL2 , CTRL3 L0GD6 . LDB07 , LOSOS " 

20 PRINTMID$<A«, INT<RND(.5>*1!5+1> , 1) "CRVS3 " I s GOTO 
20 

which defines the string A$ to contain all the colours available (don't 
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type in the commas when you run the program!), and then picks out 
one of them at random and prints it out followed by a reverse space 
so you can see the colour. It then loops back and repeats the process 
ad infinitum until you press the STOP key. 

Some of these colours (though not all) are also available using the 
CHR$ command, as the following table shows: 



PRINTS 



CHRS 



PRINTS CHR$ 



PRINTS CHR$ PRINTS CHR$ 



OlSABLEsQQQS 



ENABLES 



SWITCH TO 
LOW€R CASE 



9 
10 
11 
12 

13 
14 
15 
16 



17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



$ 

% 



34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



7 

@ 

A 
B 
C 



51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
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PRINTS 


CHR$ 


PRINTS 


CHRS 


PRINTS 


CHRS 


PRINTS 


CHRS 


D 


68 


Li J 


97 


11 


1?fi 

f 




1 ss 

1 OO 


E 


69 




98 


1 3 


127 




1Sfi 
1 ou 


F 


70 


H 


99 




128 




157 


o 




□ 


1 UU 




129 


A 


Too 


H 


72 


n 

□ 


101 




1 "^n 

1 ov 




159 


1 


73 






1 O 1 


■ SPACE 1 




J 


74 




1 m 

1 vO 




1 


E 


1 Ri 


K 


75 


LJJ 


1 C\A 

1 u'^ 


11 


1 OO 


■■ 


1 AO 


L 


76 


R1 




lO 


1 OH 


1 1 


16*^ 

1 VO 


M 


77 


rs 


106 




1 OS 


1 1 


1 M 


N 


78 





in? 


f7 


1 oD 


n 


1 \JsJ 





79 




1 uo 


♦O 

\d 






1 AR 


p 


80 


LSI 


i HQ 


14 


loo 


n 

1 1 


1 A7 


Q 


81 





110 


f6 


139 




168 


R 


82 


n 


1 1 1 


f8 


1 ACS 


iri 


1 AQ 


c 
o 


83 


n 


1 1 c 


B^B C3SE 


ll d1 


n 

PR 

LO 


1 70 


T 


o*t 


1 1 


1 SWITCH TO 
luPPER CASE 


1 AO 


1 71 

1 A 1 


1 1 
U 




1 1 


114 




1 ilQ 


Pi 


1 70 


v 

V 


ou 




1 1 s 




1 AA 




1 7*5 


VV 


R7 


n 


1 1 R 




14*^ 

1 **o 


H 


1 7A 


X 


88 


Vr\ 


117 




1 


a 


1 /o 


Y 


89 




1 1 Q 






H 


176 


z 


90 


O 


1 1 Q 






H 


177 


[ 


91 




120 




1 AQ 


H 


1 7Q 
1 /O 


£ 


92 


□ 


121 




1 sn 


ffl 


1 7Q 

1 /y 


1 

J 


93 




1 00 




1 Ol 


D 


180 


T 


94 


ffl 


123 




152 


C 


181 




95 


m — 1 

E 


124 




153 


□ 


182 


B 


96 


m 


125 




154 


n 


183 
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PRINTS 


CHRS 


PRINTS 


CHR$ 


PRINTS 


CHRt 


PRINTS 


CHRS 


n 


184 


□ 


186 


[ — 

H 


188 


E 


190 


y 


185 


E 


187 


H 


189 


S 


191 



CODES 192-223 SAME AS 96-127 

CODES 224-254 SAME AS 160-190 

CODE 255 SAME AS 126 



From the above table you can see that all of the graphics characters 
are also available by a series of CHR$ commands. However, attempting 
to display them all using CHR$ will result in strange things happening 
on the screen, as some of these commands are used for things other 
than displaying characters. CHR$(13) for instance, is the equivalent 
of pressing the Return key, CHR$(147) is the same as clearing the 
screen, and so to display all the characters on the screen we need to 
resort to our old friend POKE, as In the following example: 

5 PRINT "CCLR]":SS=1024:CS=5529& 

10 POKE 53280,9:P0KE 53281,0 

20 F0RI=0T0255 

30 PQKESS+ 1,1: POKE CS+ I , 7 

40 NEXT I 

This simply clears the screen, sets the border and background colours 
to be brown and black, and then POKEs every character onto the 
screen in yellow for legibility. 

The program can be made a lot more interesting by incorporating an 
instruction to POKE the computer repeatedly into graphics and lower 
case. As you know, this can be achieved from the keyboard by pressing 
one of the shift keys and the logo key at the same time. But from within 
a program we have to use yet another POKE command, like this: 



5 PRINT "CCLR]":SS=1024:CS=55296 

1 POKE 532Si:) . 9 : POKE 5328 1 . O 

20 FDRI=0T0255 

30 POKESS+ 1,1: POKE CS+ I . 7 

40 NEXT I 

50 POKE 53272,23 

60 F0RK=0T0500:NEXTK 

70 POKE 53272.21 

80 F0RK=0T0500: NEXTK 

90 SOTO 50 
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The additional lines now perform a continuous loop, with the FOR 
K . . . lines acting purely as a delay to allow you to see what is happening. 
The two POKES in lines 50 and 70 respectively put us into lower case 
and graphics modes. 

If we wanted this to be of more practical use, so that we could tell 
which value of I was producing which particular character on the 
screen, we'd have to alter line 30 to POKE the characters out on, say, 
every third square, and in the gap in between use the PRINT command 
to put the value of I that belongs to that character on the screen. 

However, if you want it in reference form, here it is: 



SET 1 


SET 2 


POKE 


SET 1 SET 2 


POKE 


SET 1 


SET 2 POKE 


@ 







S 


s 


19 


& 


38 


A 


a 


1 


T 


t 


20 




39 


B 


b 


2 


U 


u 


21 


( 


40 


C 





3 


V 


V 


22 


) 


41 


D 


d 


4 


w 


w 


23 




42 


E 


e 


5 


X 


X 


24 


+ 


43 


F 


f 


6 


Y 


y 


25 




44 


G 


g 


7 


z 


z 


26 




45 


H 


h 


8 


[ 




27 




46 


1 


i 


9 


£ 




28 


/ 


47 


J 


j 


10 


] 




29 





48 


K 


k 


11 


T 




30 


1 


49 


L 


1 


12 






31 


2 


50 


M 


m 


13 


SPACE 




32 


3 


51 


N 


n 


14 


! 




33 


4 


52 


O 





15 






34 


5 


53 


P 


P 


16 


# 




35 


6 


54 





q 


17 


$ 




36 


7 


55 


R 


r 


18 


% 




37 


8 


56 
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SET 1 SET 2 POKE 



SET 1 SET 2 POKE 



SET 1 SET 2 POKE 



9 




57 


m 


Q 


81 




105 






58 


u 


R 


82 


□ 


106 


• 




59 


H 


S 


83 


[B 


107 


< 




60 


□ 


T 


84 


a 


108 


— 




61 


1 — '1 

Q 


U 


85 


H 


109 


> 




62 




V 


86 


a 


110 


9 




63 


O 


w 


87 


□ 


111 


1 1 




64 


[*] 


X 


88 


Da 


112 




A 


65 


□j 


Y 


89 


a 


113 


T 1 

lIj 


B 


66 


r A 1 

[E 


z 


90 


a 


114 




C 


67 


r f ! 

EB 




91 


a 


115 


L.. J 


D 


68 






92 


c 


116 




E 


69 


LIJ 




93 


Ll 


117 


; 1 


F 


70 







94 


a 


118 


il 1 


G 


71 




95 


n 


119 


I J! 


H 


72 


1 SPACE 




96 


n 


120 


R] 


1 


73 


■ 1 




97 


a 


121 


r VI 


J 


74 


H 




98 


□ 


122 


r ■ 

□ 

V 1 


K 
L 


75 
76 


n 

r 1 
1 ] 




99 
100 


a 


123 
124 


N 


M 


77 


□ 




101 


a 


125 




N 


78 






102 


^ 1 


126 


n 





79 


□ 




103 


% 


127 


n 


P 


80 






104 





Codes from 128-255 are reversed images of codes 0-127. 
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Tricks from the keyboard 

Having got all our characters up on the screen, and achieved an overall 
familiarity with the keyboard (what characters appear when you POKE 
them to the screen, and so on), it only remains to give you a few tricks 
of the trade before we get down to some serious programming. 

While not specifically connected to either graphics or sound, these 
tricks do have their uses when programming generally, giving you such 
things as repeat keys, preventing people from looking at your program 
listings, disabling run/stop and restore, and so on. 

In order, we have: 



COMMAND 


USE 


REMEDY 


POKE 775,200 


PREVENT LISTING 


POKE 775,167 


POKE 808,239 


DISABLE STOP KEY 


POKE 808,237 


POKE 808,255 


AND RESTORE KEY! 


POKE 808,237 


POKE 649,0 


DISABLE KEYBOARD 


POKE 649,10 


POKE 808,255 


PREVENT SAVING 


POKE 808,237 


POKE 818,32 


AND LISTING 


POKE 818,237 


POKE 650,255 


AUTO REPEAT 


POKE 650,0 



If you discover any other 'peculiarities' of the machine, please write 
and let us know! 

Graph plotting 

Obviously with all the graphical features we have at our disposal on 
the Commodore 64, there are many uses to which even the existing 
character set can be put. After all, it didn't deter the earlier Commodore 
computers from producing some excellent results. 

Of particular interest in the world of animation would be the characters 
to be found on the U,I,J and K keys by using the shift key. Little aliens 
in flight could easily be achieved by using these characters and 
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swopping from one to another. 

For graph plotting, we could use the quarter square graphics characters 
found on the D,F,C and V keys, as this would relatively easily double 
the resolution on the ordinary 64 from the 40 by 25 characters achieved 
at power on to a more respectable 80 by 50 by careful use of those 
four characters. 

Bar charts, histograms and pie charts are all fairly easily done, as are 
simulations of mathematical equations in graphical form, for instance 
the plotting of sine waves, or two equations combined together to 
give one output. 

For example, if plotting a bar chart you could use a string that was 
set up to be four reverse spaces in length, with the first two being 
light red, and the second two being dark red. A little juggling with 
reverse field characters thereafter gives a very nice three-dimensional 
effect on the screen. You could also use the other two colours that 
have light and dark versions, namely green and blue, and perhaps also 
black with one of the darker grey colours. 

Experiment is the key here, and if you manage to produce a nice bar 
chart and someone says 'What about histograms?', simply turn the 
television set on its side and there you are: instant histograms! 

Some very good effects can be achieved by this use of reverse field 
characters: some of them if printed out in reverse look surprisingly 
different from their more normal form. 

Android Nim 

Use of reverse field characters is made to devastating effect in the 
following program from Don Denis. In it he defines a number of little 
androids made up out of reverse quarter block (and other! ) characters, 
and then proceeds to bring in some delightful animation as the game 
proceeds. 

The program itself is based on the old game of Nim, usually played 
with three rows of matches, with three matches in the first row, five 
in the second and seven in the third. 

Players take it in turns to remove matches, and whoever takes the 
last match wins. So the trick is to pick and choose both the row and 
the number of matches to remove, and force your opponent into a 
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position where he has to give you the last one. 

Here, the game is acted out by eighteen androids, three acting as 
executioners, and the other fifteen forming our three rows of matches. 
You and the computer alternately select the row and the number of 
androids to be 'executed', and try to force your opponent into giving 
you the last 'droid. The game shows a cleverly increasing I.Q. if it loses 
the first few games, and becomes gradually more and more difficult 
to beat. 

The listing itself is not without pitfalls when entering it in. In common 
with ail the listings in this book we've removed all the cursor control 
characters, graphics characters and so on, and replaced them with 
the symbols given earlier. 

With this one more than any of the other listings you're going to have 
to take great care when entering it, especially lines 41 to 47 and the 
data statements in lines 5030 to 5120. 

The data statements in particular need very careful attention. Since 
we've replaced the graphics that would normally appear with their 
worded equivalent, some of the data statements are actually longer 
than one line (e.g. line 5030), and we've had to run them on over one 
or two lines. When you type it in, make sure that all the data just comes 
in one data statement. In other words, where the REM statement says 
'follows on from lines XXXX and YYYY), the group of lines before 
it are intended to be one line of data. 

Finally, the pound signs really are meant to be pound signs, and the 
occasional letter in italics is meant to be in upper case when you type 
it in. Owing to the POKE 53272,23 statement in line 0, the game is 
meant to be played in upper/lower case rather than upper 
case/graphics mode, so just type everything else in as normal. When 
run, you'll get the correct mixture of upper and lower case letters. 

Simply sitting back and watching the little characters can be enjoyable 
enough, although you might get tired of their remarks as you 
continually do nothing. When the game is being played properly, watch 
out for their reactions as they are about to shoot their fellow androids, 
or if you set them an impossible task or type in something they don't 
understand. 

This program has been a classic ever since it first appeared on a 
Commodore PET in 1979. I've simply converted it to run on the 64 
and given each of the three main androids a different voice. 
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A very clever use of the existing graphics set. 



POKE 53280,1: POKE 5328 1.1: POKE 53272.23 

1 PRINT"CCLRD"TAB(10) "[2CD,GRN:»*#[RVS:/INDRDID HIM 

coff:»»»" 

2 printtab ( ib) " ccddby" :printtab ( 14) "ccd3don denisc 

3CD3" 

3 PR I NTT AB C 1 1) ■■ TORONTO, CANADA " : PR I NTTAB ( 1 3 ) " JULY , 
197V : 

4 REM 153 UNDERHILL DR 

5 REM DON MILLS, CANADA 

6 REM M3A 2K6 

7 REM (416)445-3927 

a PRINTTAB ( 12; " C3CD3/1MENDED BY" 

9 PRINTTAB ( 12) " CCDIPETE GERRARD" : PRINTTAB < 13) " JAN. 
, 1984" 

10 SF=64: VC=54272 
12 POKEVC+24,15 

14 POKE VC+19, 18:P0KE VC+20,250 

18 POKE VC+18,33 

31 CL*="CH0ME,40SP,H0ME3 

34 LN=214:CN=21 1 :KB=19e 

35 DEF FNE(X)=(A<P)ORE)AND<NOT(A(P)ANDE) ) : IQ=.7 

36 DIM B*(1B) 

38 : F0RI=0TO17 

39 : READS* (I) 

40 : NEXT I 

41 B* ( 18) ="CCL,RVS,SP,OFF,2CBMK,RVS,2SP,CD,5CL,SP, 
CBMC , OFF , CBMD , SP , R VS , SP , CD 3 " 

42 B* ( 18) =B* ( 18) +"C5CL,SP,CBMC,OFF,CBMV,CBMD,RVS,S 
P , CD , 5CL , SP , OFF , CBMK , SP 3 " 

43 B*( 18) =B* ( 18) +"CCBMD,RVS,CBMF,CD,5CL,SP,0FF,CBM 
K , SP , RVS , 2CBMK , CD , 5CL 3 " 

44 B* ( 18) =B*( 18)+"[SP,CBMV,CBMK,OFF,CBMD,RVS,SP,CD 
, 5CL , 2SP , 2CBMK , SP , CD , 5CL , SP 3 " 

45 B*(18)=B*(18)+"C CBMC , CBMV , OFF , CBM I , RVS , SP , 5CL , 7 
CU,0FF,5SP,CD,5CL,5SP3 " 

46 B* ( 18) =B*(18) +"CCD,5CL,5SP,CD,5CL,5SP,CD,5CL,5S 
P , CD , 5CL , 5SP , CD , 5CL , 5SP 3 " 

47 B*( 18)=B*(18)^-"CCD,5CL,5SP,CU3■■ 
50 DIM PX ( 17) ,PY ( 17) ,R < 17) ,CM*(7) ,A(2) ,8(2) 
60 F0RI=0T017 

70 : READ PX(I).,PY(I) 

75 : R(I)=I 

80 : NEXTI 

105 DIM M*(15) 

no FORI=OT015 

115 : READ M* ( I ) 

120 : NEXTI 
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121 F0RI=0T07 

122 : READCM«(I) 

123 : NEXTI 
130 GaSUB2000 
146 IQ=.9 

150 RR=3:B(0)=10:B(1)=15:B(2)=18 

155 Q*="DO YOU NEED INSTRUCTIONS?" : eOSUBSOO 

160 IFA*="N"60T0200 

165 Q*="UB ARE THE EXECUTIONERS. £ PICK ONE OF US ( 
A B OR C)£ TO DESTROY AS MAN 

166 Q*=Q*+"y ANDROIDSC FROM EACH ROM AS YOU MISH.C 
THEN IT IS OUR TURN TO PLAY. 

167 Q*=Q*+"£ THE ONE WHO BETS THE LAST DROID WINS. 

":GaSUB1500 

200 PRINT" [:CLR3":GOSUB2000: FOR N=3T017 
205 : 60SUB1000 
210 : R(N)=N 
215 : NEXTN 

220 RR=18:A(0)=7:A(l)=5iA(2)=3 

225 TR=0:Q*="Da YOU WANT TO PLAY FIRST?" i 60SUB800 
228 M=0 

230 IFA*="N"G0T0245 
235 IFA*<>"Y"60T0225 
240 M=l-M 
245 IFRR=3G0T0500 
250 IFM=0G0T0400 

255 TR=0:Q*="IT IS YOUR TURN.£ WHICH ROM?" : G0SUB80 

O 

256 Z=l 

260 P=ASC(A»)-65 

265 I FP< OORP >2THENQ0SUB600 s G0T02SS 

270 I FA ( P ) =OTHENGOSUB650 j 60T0255 

275 TR>P:Q«»"HOW MANY ANDROIDS?" c G0SUB800 

280 ZsASC(A«)-48 

285 IFZ< lORZ >9THEN60SUB600i G0T0255 

288 POKELN,PY(P) iPOKECN,PX(P) iPRINT"C2CU,CR3"Z 

290 IFZ>A(P) THENG0SUB650 1 POKELN , P Y < P > I POKECN , P X ( P ) 

: PR I NT " C 2CU , 2CR , SP 3 " s Q0T0275 

300 SLs2SiG0SUB700 

305 POKELN, PY<P/ iPOKECN,PX (P> j PRINT" C2CU,2CR,SP3 " 
310 60T0240 
400 E-0:F-0 
405 FORP=0TO2 

410 ! E«FNE<0) : IFA(P) >FTHENF-A<P) 1 Il-P 
415 ! NEXTP 

420 FORP=OT02 

425 : R=FNE(0) : IFR<=A(P)G0T0470 
430 : NEXTP: STOP 

470 IFR=A<P)ORIQ>RND(l)THENP=Il:R=A(P)-INT(RND(l)« 
(A(P)-1)+1) 

475 TR=P: Z=A(P)-R:Q**"HE CHOOSE "+STR* ( Z > +" ANDROID 
FROM ROW "+CHR*(P+65 )+".£" 
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476 GDBUB1500 
478 SL=5:G0SLIB700 
495 G0T0240 

500 Q*=" WIN.£": IFM<>OTHENQ*=" LOSE.E" 
505 Q*="V'OU"+Q* 

510 IFM=OTHENQ*=Q*+" WE WILL PLAY BETTER NEXT TIME 
.£": ID=IQ»IQ«IQ 
515 TR=0:B0SUB1500 

520 Q*=" WOULD YOU LIKE ANOTHER GAME?" : G0SUB800 
525 I F A*<> '■ N " G0T0200 

530 Q*=" THANK YOU FOR PLAY I NG. ££ " : GOSUB 1 500: RUN 

600 TR=0:R1=0:R2=0:R3=0:SL=17 

605 M1*=M* (9) : M2*=M* ( 10) : M3*=M* (11) 

610 60SUB900 

615 Q*="y0UR ANSWER DOES NOT MAKE SENSE. £" 

616 IFZ=OTHENQ*="CAN T YOU MAKE UP YOUR MIND?£" 

617 B0SUB1500 
620 RETURN 

650 R1=P:R2=P:R3=P:SL=25 

655 M1*=M*<7) !M2*=M*(B) :M3*=M*<8) 

660 G0SUB900 

665 TR=P: Q*=" SORRY. ONLY"+STR« (A (P) > +" ANDROIDS LE 
FT.£" 

670 IFA (P) =OTHENQ*="I CAN'T DO IT. I HAVE NONE LEF 
T.£" 

675 GOSUB 1500 

680 RETURN 

700 R1=P:R2=P:R3=P 

705 M1*=M*(6) :M2*=M*(8) :M3*=M*(8) 
710 G0SUB900 
712 II=B<P)-A<P) 
715 FORI=IITOI I+Z-1 

720 : POKELN.PYd) iPOKECN.PX (I) :PRINT"CCU,CR3"B*(6 
) 

725 : NEXT I 

726 REM 

727 F0RJJ=255T030STEP-1:PDKE VC+ 15 , J J : POKE VC+14,J 
a:NEXTJJ 

728 POKE VC+15,0:P0KE VC+14,0 
730 FORI=lTOZ 

735 : G0SUB950 
740 : NEXT I 
788 RETURN 

800 POKEKB , O : QU*=Q* : GOSUB 1 500 

a05 T=TI+800 

810 M1*=M*<RND(1)«16) 

815 M2*=M*(RND(1)«16) 

820 M3*=M*(RND(1)*16) 

825 R1=R<RND(1)»RR) 

830 R2=R ( RND ( 1 ) »RR ) : I FR2=R 1 GQT0830 

835 R3=R ( RND ( 1 ) *RR ) : I FR3=R20RR3=R 1 G0T0835 

840 SL=INT(25»RND(1)+1> 
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845 BaSUB900 

850 GET A« : I FA*< > " " THENPR I NTCL* : RETURN 

855 IFTI>TTHEN Q*=CM* (RND ( 1 ) ♦S) +"£ "+QU*: G0SUB1500 

: G0T0805 

860 GOTOGIO 

900 FORC=SL TO 1 STEP- 1 

910 : POKELN,PY(Rl)iPQKECN,PX(Rl) :PRINT"CCU,CR3"B* 
(ASC<RIGHT*(M1*,C) )-SF) 

920 ! POKELN,PY(R2) :P0KECN,PX<R2) SPRINT" ecu, CR]"B* 
<ASC(RIGHT«(M2*,C) )-SF) 

930 : POKELN,PY(R3) :POKECN,PX (R3) :PRINT"CCU,CR3"B* 
(ASC (RIGHT* (h3*,C) )-SF) 
940 : NEXTC 
945 RETURN 

950 P0KELN,PY(R1) :P0KECN,PX(R1) :PRINT"CCU,CD,4CR]" 

954 FORJJ=20T0140STEP7:PQKEVC+15, JJsPOKE VC+14.JJ: 
NEXTJJ:P0KEVC+15,0:P0KEVC+14,0 

955 SP=PX(Rl):EP=PX<B(P)-A(P))-5 

959 SP=PX(Rl>iEP=PX<B(P)-A(P))-5 

960 F0RJ=SPT0EPSTEP2:PRINT" -=*C3CL3 " 5 s NEXTJ 
965 I F I NT ( ( EP-SP ) / 2 ) *2=EP-SPTHENPR I NT " C CL 3 " ; 
970 PRINT" CCU,CR3"B»( 18) 

974 RR=RR-1:A(P)=A<P)-1 

976 A=3 

977 ONP+lGOT0990,985,980 
980 A=A+A(1) 

985 A=A+A(0) 

990 F0RJ=AT016 

991 : R(J)=R(J+1) 

992 : NEXTJ 
998 RETURN 

1000 POKELN,PY(N) sPOKECN.PX(N) s PRINT" ecu, CR3"B*<1+ 
7*RND ( 1 ) ) ; 

1010 PDKELN,PY(N) :POKECN,PX(N) : PRINT" CCU, CRD "B* (O) 

1020 POKELN,PY(N) rPOKECN.PX (N) : PRINT" ECU, CR3 "B* (9+ 
5*RND ( 1 ) ) ; 

1030 PGKELN,PY(N) : POKECN,PX <N> : PRINT" CCU.CR3 "B* < 14 

+4»RND ( 1 ) ) s 

1040 RETURN 

1500 PR I NTCL* 

1505 II=0:G0SUB1600 

1510 FORI=lTOLEN(Q*) 

1515 : CH*=MID*(Q*,I,1> 

1517 N=N+1 

1520 : IFCH*=" "THENQOSUB1600 

1525 : IFCH*="£"THENII=IsF0RJ=lT0600:NEXTJ:PRINTCL 
*: GOTO 1550 

1530 : P0KELN,l!POKECN,I-II:PRINT"CCU,CL]"CH* 
1550 : NEXTI 
1560 RETURN 
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1600 POKELN,PY(TR) :POKECN,PX (TR> : PRINT" tCU,CR] "B* ( 
1) ; 

1605 POKE VC+15,30-TR*10;PDKE VC+14,10 

1606 POKE VC+15,0:P0KE VC+14,0 

1610 PRINT"C3CL,CBMK,CL]"; :GOSUB1700:REM USE CBM K 
EY AND K FOR GRAPHIC CHARACTER 

1615 PRINT"tRVS,CBMC,CL3"; :60SUB1700:REM USE CBM K 
EY AND C FOR GRAPHIC CHARACTER 
1620 PRINT"CSP,CL:": :60SUB1700 

1625 PRINT"tCBMCD":G0SUB1700:REM USE CBM KEY AND C 

FOR GRAPHIC CHARACTER 
1630 N=0 
1650 RETURN 
1700 F0RJJ=1T03«RND ( 1 ) 
1702 POKE VC+15,30-(TR*10+RND(1)*3) 
1704 POKE VC+14,30- <TR-)H0+RND< 1 ) »3> 
1706 NEXTJJ 

1710 POKE VC+15,0:P0KE VC+14 , O: RETURN 
2000 FOR N=0T02 
2010 : GOSUBIOOO 

2020 : PRINT" [RVS,2CU,3CL3*[CD,CL:"CHR*(N+65) 
2030 : NEXTN: RETURN 

5030 DAT A " C RED , 3CD , CR , RVS , SP , CD , CL , SP , CU , CBMD , OFF , 
CD , CL , CBMK , CD , 2CL , 2CBMK , CD 

503 1 DATA " C 2CL , 2CBMK , CD , 3CL , CBMC , CBMV , RVS , CBM I , OFF 
,3CL,7CU,RED3" 

5032 REM CARRY ON FROM LINES 5031 AND 5030 

5035 DATA " C RED , SP , 2CBMK , CD , 3CL , RVS , CBMV , 2CBMF , OFF , 
CBMF , CD , 4CL , CBMC , RVS , CBMC 

5036 DATA" [CBMD,0FF,SP,RED3": REM CARRIES ON FROM L 
INE 5035 

5040 DATA " t BLU , SP , 2CBMD , CD , 3CL , RVS , CBMK , CBMB , CBMV . 
aFF,SP,CD,4CL,RVS,CBMl ,SP 

5041 DATA " CCBMD, OFF, CBMV, RED3": REM CARRY ON FROM 
LINE 5040 

5045 DAT A " C PUR , SP , 2CBMD , CD , 3CL , RVS . CBMV , 2SP , OFF , CB 
MF , CD , 4CL , RVS , CBMK , CBMB , CBMV 

5046 DATA" COFF,SP,REDa": REM THIS CARRIES ON FROM L 
INE 5045 

5050 DATA" C PUR , SP , RVS , 2CBMK , CD , 3CL , CBMK , 2CBMD , OFF , 
SP , CD , 4CL , OFF , CBMC , RVS , SP 

5051 DATA" CCBMB, OFF, SP, RED]"; REM THIS CARRIES ON F 
ROM LINE 5050 

5055 DATA " C BLK , 2SP , CBMK , CD , 3CL , RVS , CBMK , SP , OFF , CBM 
V , SP , CD , 4CL , CBMC , RVS , SP , CBMD 

5056 DATA" tOFF,SP,RED3": REM WHEN YOU TYPE IT IN. C 
QNT. THIS AS PART OF LINE 5055 

5060 DATA "C RVS, 2CBMK, OFF ,SP,CD,3CL,CBMC,RVS, CBMD , S 
P , OFF , SP , CD , 4CL , CBMC , RVS , CBMV , 

5061 DATA" [CBMD, OFF, SP3": REM WHEN YOU TYPE IT IN, 
CONT. THIS AS PART OF LINE 5060 

5065 DAT A " C SP , CBMK , 2SP , CD , 4CL , SP , RVS , CBMF , SP , OFF , S 
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P,CD,4CL,CBMC,RVS,SP,CBMD,OFF,SP3 
5070 DATA " [ CD , CR , RVS , 2SP , OFF , CR , CD 3 " 
5075 DAT A " C 3CD , R VS , CBMB , CD , 2CL , OFF , CBMC , CBMF , CD , 2C 
L ,SP,CBMC3" 
5080 DATA " C BRN , 3CD , R VS , CBMB , CD , 2CL , OFF . SP , CBMK , CD , 
2CL,SP,CBMC,RED3" 

5085 DATA" C BRN , 3CD , RVS , CBMB , CD , 2CL , OFF , SP , CBMK , CD , 
2CL , SP , CBMV , RED 3 " 

5090 DAT A " C ORE Y 1 , 3CD , RVS , CBMB , CD , 2CL , OFF , SP . CBMK , C 
D , 2CL , CBMC , SP , RED 3 " 

5 1 00 D AT A " C LT . RED , 3CD , RVS , CBMK , CD , CL , CBMK , 2CL , OFF , 
SP , CD , CL , SP , CBMV , RED 3 " 

5 1 05 DATA " C YEL , 3CD , 3CR , CBMF , CD , CL , RVS , CBMB , CD , 2CL , 
CBMD,OFF,SP,RED3" 

5110 DATA " C YEL , 3CD , 3CR , CBMF , CD , CBMK , CD , 2CL , RVS , CBM 
D,OFF,SP,RED3" 

5115 DATA " C BRN , 3CD , 3CR , CBMF , CD , CL , CBMK , CD , 2CL , CBMK 
,CBMV,RED3" 

5 1 20 DATA " C GRN , 3CD , 3CR , CBMF , CD , CL , CBMK , CD , 2CL , CBMK 
, CBMC, RED 3" 

5230 DATA0,2,3, 10,0,18,5,2, 10,2, 15,2,20,2,25,2,30, 

2,35,2, 13,10, 18, 10,23, 10,28 

5240 DATAIO, 33, 10,21 , 18,26, 18,31 , 18 

5330 DATA AHDEEDABACABACABACAADHDAB 

5335 DATA AHDAFADAFADEDHDAHAFFHFFAA 

5340 DATA AHANCAAABKPLQAKPINHACCAFS 

5345 DATA JOKPLQKPJOKPLQKPJOINFJHFM 

5350 DATA FGNKLJLJLJLJLFHFFADEQNJNID 

5355 DATA AHAFADAFAHADFDFDFDHDAFBKN 

5360 DATA AHBBBAHADEEEDABACABACADEI 

5365 DATA ABBBAHADEEEDAFADAFADAFAHA 

5370 DATA QJ J JPPPPQPQPKKKKKKKKKKKKK 

5137 DATA AAAAAAAAHABBBAAACCAHAAAHA 

5380 DATA AAAAAAAAI I I I IJKLLLI I I I I I I 

5385 DATA AAAAAAAANI I I lOPQQQNNNNNNN 

5390 DATA AHABADACAFABADACFBDCFBDHD 

5395 DATA ADEDADEDADEDHAFBFAFBFAFQF 

5400 DATA BDBDBDBDBACFMNCACACACAHCA 

5405 DATA AFBBNQPQPQFAHDEPQNDAFBLIB 

5510 DATA "COME ON. " , "HE HAVEN'T BOT ALL DAY!" 

5520 DATA "HE HAVE BETTER THINSS TO DO." 

5530 DATA "JUST ANSWER THE QUESTION. ", "JT ISN'T THA 

T DIFFICULT! " 

5540 DATA "THERE IS A LIMIT TO OUR PATIENCE!" 

5545 DATA "JUST GET ON WITH IT.","HHY ARE YOU SO ST 

UPID!?" 

READY. 
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4 

Sprites 

Just what is a sprite? 

A sprite sounds as if it ought to be some kind of elf dancing about 
through the woods, but reality and computing have a way of bringing 
you back down to earth, and we find that a sprite is in fact a 
programmable, moveable object block that can either be 24 pixels 
horizontally by 21 pixels vertically, or in some special cases as we'll 
see in chapter five, 24 pixels by 24. 

For now we'll confine ourselves to standard sprites as they exist on 
the Commodore 64. 

24 pixels by 21 is approximately three characters wide by three 
characters high, and when in normal mode this is indeed about the 
size of a sprite. However, as we shall be seeing later, sprites can be 
expanded in either the horizontal or the vertical direction (or indeed 
both), to roughly twice this size. 

As we've already seen, a pixel can either be on or off, and so an ordinary 
sprite like this can have every one of the 24 by 21 pixels defined to 
be either on or off. In other words, the image portrayed by the sprite 
will be a two colour one: one colour is the actual sprite colour, and 
the other will be whatever background colour the screen happens to 
be at the time. 

Commands exist to move sprites about the screen; you can check 
whether a sprite has hit another sprite (or some other data on the 
screen), and they can be turned on or off selectively. That is, we can 
have sprites 0,1 and 3 turned on, and sprite 2 turned off, should we 
so desire it. 



Data storage 

Needless to say, there are one or two penalties associated with using 
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sprites, and one of them is that we've got to store the data for each 
sprite somewhere in the computer's memory. 

Since 24 by 21 pixels is equal to 63 bytes, defining a large number 
of sprites can take up a lot of memory. However, a practical limit for 
most purposes will be eight sprites, and to begin with we'll just stick 
with one or two. 

There are eight locations in memory which tell the computer where 
the data is to be stored for each of the first eight sprites. These are 
locations 2040 through to 2047, which are the eight locations 
immediately before the start of the computer's Basic RAM memory. 

If we POKE a 13 into location 2040, this tells us and the computer that 
the 63 bytes of data for sprite are to be found in the 13th location 
of the computer's memory set aside for sprite storage. This starts at 
memory location 832. Why 832? Well, you're probably getting used 
to the fact that in the world of computers, everything has inevitably 
got to be divisible by 8, and 63 is not particularly useful as a number 
to be divided by 8. So the computer sets aside 64 bytes for each sprite, 
calling the last one a 'sprite marker'. 64 times 13 equals - you guessed 
it - 832, and so that's where the 13th block of sprite data lives. 

The 14th and 15th block are the next two 64 byte chunks of memory, 
starting at locations 896 and 960 respectively. The 12th block is alas 
used by the computer itself, and so for another one we must move 
down in memory to the 1 1th block, starting at location 704 (11 times 
64). 

So if we'd POKEd 2040 with anil, that would have told the computer 
that the data for sprite zero was now to be found starting at memory 
location 832. 

The colour of our sprite is determined by another memory location 
which we'll arrive at in a moment, after briefly mentioning one other 
variation on a sprite theme: multi-coloured sprites. 

Multi-coloured sprites 

As you might surmise, a multi-coloured sprite is one that is capable 
of showing more than one colour, and indeed we can have up to four 
colours on display in such a sprite. 

These are the ordinary sprite colour which we're already used to, the 
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background colour of the screen, and two other colours referred to 
as sprite multi-colour zero and sprite multi-colour one. We'll see shortly 
where this Information is kept in the computer's memory. 

With this feature available, why should anyone ever want to use 
ordinary sprites? Because a multi-coloured sprite may still occupy 63 
bytes in memory, but each row of 24 by 21 bytes is now read in a 
somewhat different manner. 




As you can see from the above, if we look at each row of data we 
have 24 bits to play with. Using an ordinary sprite, we can say that 
each of those bits will be either on or off. However, using a 
multi-coloured sprite we cannot look at each bit at once, since we need 
to know whether each multi-coloured sprite bit is any one of three 
colours, or is turned off. 

A bit cannot be in four different states, and so the bits are joined 
together in twos, since two bits can indeed be looked at in one of four 
different ways, as shown below: 

OFF OFF : Displays screen background colour 
OFF ON : Displays sprite multi-colour zero 
ON OFF : Displays ordinary sprite colour 
ON ON : Displays sprite multi-colour one 

So by looking at two bits at a time, we can select which colour to 
display that part of the sprite in. Thus, although we still have 24 bits 
to play with, as far as sprite resolution goes they are to be regarded 
as just 12 different blocks: half the resolution of an ordinary sprite. 
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Before we start getting a little more complicated, here's where all the 
sprite data is stored in memory. 

Sprite data map 

Starting at location 53248, we have 47 registers at our disposal, and 
these are grouped as follows: 



Location Function 
(53248+) 

00 X co-ordinate position of sprite 

01 Y co-ordinate position of sprite 
02-15 Ditto for sprites 1 to 7. 

16 Most significant bit of X co-ordinate 
position of all sprites. Used when 
moving sprites at right hand side of 
screen, when X co-ordinate would 
normally be greater than 255 

17 Used in selecting extended colour mode, 
scrolling screen in Y-direction, etc. 

18 Raster register 

19 X co-ordinate position of light pen 

20 Y co-ordinate position of light pen 

21 Turning selected sprites on 

22 Used in selecting multi-coloured mode, 
scrolling screen in X-direction, etc. 

23 Expand selected sprite in Y direction 

24 Memory pointers 

25 Interrupt registers 
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Location Function 

26 Enable interrupt 

27 Sprite data priority: controls what 
happens when sprites hit something on 
the screen 

28 Used in selecting multi-colour sprites 

29 Expand selected sprite in X direction 

30 Controls what happens when sprites 
collide with each other 

31 Controls sprite to data collisions in 
conjunction with register 27 

32 Controls the screen border colour 

33 Controls screen background colour 

34 Background colour 1, used in high 
resolution modes 

35 Background colour 2, as above 

36 Background colour 3, as above 

37 Selects sprite multi-colour zero 

38 Selects sprite multi-colour one 

39 Selects colour for sprite 
40-46 Ditto for sprites 1 to 7. 



So, as you can see, with ordinary sprites you can have each of the 
eight sprites displayed in a different colour, whereas multi-coloured 
sprites have all got to have the same colour, since only one register 
is set aside for each multi-colour mode. 
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Defining sprites in Basic 



Later on in this book there are a number of programs which make life 
a lot easier when it comes to defining sprites. 

But for the time being we're going to need to do it by hand, if only 
so that we can get a better grasp of what precisely is going on. Using 
someone else's programs is all very well, but you may end up not 
knowing anything about how the machine itself handles everything. 

So for now we're going to do this the long way, by getting sheets 
of paper out and drawing all over them. I suggest that your first 
exercises are done using a pencil and rubber, since mistakes are bound 
to occur! 

First of all, we'll need to draw up a 24 pixel by 21 pixel grid, like this: 



ABCDEFGHABCDEFGHABCDEFGH 



Note the letters across the top. These are given the usual binary 
notation, so that A = 128, B = 64, and so on until we reach H, which 
is equal to 1 . This will enable us to calculate the necessary data for 
each sprite, as we shall see. 
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Now, define a sprite! Let's say we came up witli something Wke this: 

ABCDEFGHABCDEFBHABCDEFBH 

** 

** 

«« 

»»»« 

«*»«** 

***«»»*» 

»»»****««* 

***♦«»*»««♦* 

♦«**«*«****«*« 

.... **«*««»»**«*#«**. . . . 
... *««»«»«»**♦*««*♦*«. . . 

. . ** ♦**♦** **. . 

. *« «»***« 

** *♦»**»*« «* 

«««»♦*♦*** 

»»»■»***««»«* 

«». . »**«»«. . »» 

.... «♦•». . ******. . *»*. . . . 
... ****. . »«♦♦**. . «***. . . 
. . . »«**♦*. . »««**. . 
. . *«'**«. . »■»«***. . «*«*». . 

A rather primitive lool<ing rocl<et, but It will serve the purpose. To get 
the bytes of data for this sprite we must add up the values for each 
row of the sprite, so that the first row becomes equal to 0,24,0 (the 
three groups of letters). 

We then carry on for each row, adding up all the numbers, until we 
get to the last row, in this case equal to 62,126,120. 

Having now got all our 63 bytes of data, these have got to be POKEd 
into the relevant bit of memory, and the following program will do 
just that, for a rather different looking sprite: a Duckworth duck! 

10 V=53248 : REM START OF VIDEO CHIP 

20 FORI=OT062!READA:POKEa32+I ,A:NEXT 

1000 DATA 0,0,0,0.3,128,0 

1010 DATA 4,64,0,9,112,0,8 

1020 DATA 56.0.8,112,0.8,128 

1030 DATA 78,9,0,177,249,0,100 

1040 DATA 80,128,170,44,64,101,152 

1050 DATA 32,19,0,32,8,0,64 

1060 DATA 7,255,128,0,108,0,0 

1070 DATA 108,0,0,111,0,0,110 

1080 DATA 0.0.120,0,0,112.0 
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Incidentally these data statements were generated by the sprite 
designer program given later, albeit with different line numbers. 

Now that we've worked out what all our data is, how do we actually 
begin to start using it? 



Sprite data, and how it's stored 

The last program POKEd 63 bytes of data into memory locations 832 
to 894, and this data will be used to draw up our sprite, but first we 
need to tell the computer that this is where we've stored all our data. 

As we already know, memory locations 2040 to 2047, for sprites to 
8, tell the computer where to go, and assuming we're going to define 
this sprite to be sprite number 0, we need to alter memory location 
2040. Sprite number 1 would look for location 2041, and so on. 

Since we've put all our data in the 13th block of memory set aside 
for sprite data, there is little point in telling the computer that we've 
put it somewhere else, so we need to add: 

13 POKE 2040. 13 

Now we have to turn the sprite on, and give it a colour. First of all, 
we'll give it a colour. A look at the map shows that the colour of sprite 
ze o is defined by the content of memory location 39, so if we want 
a yellow sprite we must add the following: 

14 POKE y+39,7 

Now to turn it on, using memory location V + 21 . Remembering how 
binary numbers operate, POKEing a 1 into this location will turn on 
sprite 0, a 2 will turn on sprite 1, a 4 for sprite 2 (or a 3 for sprites 
and 1), and so on until we reach 255, which turns every sprite in the 
universe on (or at least all those defined in the computer's memory). 

So the next line to add becomes: 

15 POKE V+21 , 1 

All we need to do now is to move the sprite about the screen, so that 
you can see your creation in action, and to do this we'll just update 
the X and Y co-ordinates (V + for X co-ord, V-H 1 for Y co-ord for 
sprite 0), like this: 
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30 F0RI=0TP200 
35 POKE V+0,I 
40 POKE V+1,I 
50 NEXT I 
55 GOTO 30 

This will send your Duckworth duck scurrying about the screen from 
the top left hand corner to somewhere near the bottom right, moving 
one pixel position in either direction at a time. 

Of course we can get a bit more sophisticated than this, and the 
following program shows a number of different coloured ducks 
whizzing about the screen. 

To explain the listing briefly, our Duckworth duck sprite data is in line 
63000 onwards, and is read in in line 62035. The two lines before that 
determine whether or not it's a multi-coloured sprite by looking at the 
first four items of data. If it isn't, we just jump to line 62035 and read 
all the data. The first part of the program merely moves the four of 
them randomly about the screen. 

5 POKE 5328 1,1: POKE 53280,12 
10 T=4!G0SUB62000 
15 PRINT" CCLR]" 
20 FORI=OT03 

22 P=INT(RND(.5)«15) : IFP=1THENP=8 

23 POKE V+1+39,P 

25 POKE V+I«2, INT(RND(.5)»220+30) 

26 POKE V+I*2+l,lNT<RND(.5)«150+50) 

27 NEXT I 

30 POKE V+2I ,255 

40 F0RK=1T0250:NEXTK:G0T020 

61999 END 

62000 V=53248 

62005 B (O) =248: B ( 1 ) =249: B (2) =250: B (3) =251 : B (4) =252 
:B<5)=253:B<6)=254:B(7)=255 
62010 NS=T: I FNS=OTHENRETURN 
62015 FORA=lTONS 

62020 REAOSK , M 1 , M2 : I FSK=OTHENPOKEV+28 , PEEK ( V+2B ) AN 
0255-2^^ (A-1 ) :G0T062030 

62025 POKEV+28 , PEEK ( V+28 ) 0R2'^ ( A- 1 ) : POKEV+37 , M 1 : POK 
EV+38,M2 

62030 READCO : PDKEV+3B+A , CO : P0KE2039+A , B < A- 1 ) 

62035 FORC=B ( A- 1 ) «64T0B ( A- 1 ) «64+63 s READQ : POKEC , Q : N 

EXT: RESTORE: NEXT: RETURN 

63000 DATA 0,2,7,8 

63001 DATAO, 0,0, 0,3, 128,0 

63002 DATA4,64,0,9, 112,0,8 

63003 DATA56,0, 8, 112,0,8, 128 

63004 DATA78, 9, 0,177,249,0,100 
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63005 DATASO, 12B , 170 , 44 , 64 , 101 , 152 

63006 DATA32, 17,0,32,8,0,64 

63007 DATA7, 255, 128,0, 108,0.0 
6300S DATA108,0,0, 11 1 ,0,0, 1 10 
63009 DATAO , O , 1 20 , O , O , 1 1 2 . O , O 

Multi-colour and expanded sprites 

As always, it's swings and roundabouts time, as our sprite is now 24 
by 21 pixels, but with the horizontal pixels joined up in pairs, thus giving 
us the ability to have four different colours assigned to each sprite. 

The colours are defined in the usual bit pair sequence, with each pair 
taking on the following values: 

00 : beconnes transparent, and displays the screen colour. 

01 : sprite multi-colour register (53285) 

10 : sprite ordinary colour register (53287-) 

11 : sprite multi-colour register 1 (53286) 

Sprites are expanded in the X direction with the following command: 

POKE 53277, PEEK(53277)OR(2 to the power SN) 

where SN is the sprite number from to 7. 

and in the Y direction with: 

POKE 53271, PEEK(53271)OR(2 to the power SN) 

To get life back to normal again, in the X direction: 

POKE 53277,PEEK(53277)AND(255-(2 to the power SN)) 

and in the Y direction: 

POKE 53271, PEEK(53271)AND(255-(2 to the power SN)) 

Sprite positioning 

So far we've never moved sprites beyond an X co-ordinate of 255, 
simply because memory locations can't hold values greater than this. 

However, memory location 53264 allows us to move all the way to 
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the edge, in the following way. 

When the X co-ordinate becomes equal to 255, POKE 53264 (or V + 16), 
with a 1, and then reset the X values to zero again. Now we're only 
moving from 256 to 320, or a total of 64 positions, so X ranges from 
to 63. When moving back again, reset V + 16 back to a zero, let X 
equal 255 and control the sprite in the normal manner. 

Sprite priority and collision 

We'll leave you to experiment with the program listings given elsewhere 
to see precisely how this works, but in brief the priority of each sprite 
can be controlled from register 53275 (53248 + 27). 

This register works in exactly the same way as all the others, with sprite 
being controlled from bit 0, sprite 1 from bit 1, and so on. If the bit 
is set to zero, then the sprite will be displayed on top of anything else: 
the sprite is in the foreground, in other words. 

To get the relevant sprite into the background, the bit must be set to 1 . 



Collision 

This is controlled from memory location 53278, or 53248 + 30. 

Again, this works in the same way as all the other locations, and is 
used to detect collisions between sprites. 

If the register is showing zero, then nothing has happened; a 3 indicates 
a collision between sprites and 1 ; a 6 for sprites 1 and 2, and so on. 

This is based on the usual manner of selecting sprites from the 
appropriate bits of a particular byte. 

i.e. Value 128 64 32 16 8 4 2 1 
Bit 7 6 5 4 3 2 1 

Sprite No. 7 6 5 4 3 2 1 

Thus sprites 2 and 3 are controlled from bits 2 and 3, which respectively 
give the values of 4 and 8, and therefore a value of 12 (4+8) must 
be POKEd into that byte, or indeed read from it, and the relevant action 
will follow. 
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Multiple sprite collision is also possible from this. 

For instance, if register 53278 returns a value of 82, it means that bits 
6, 4 and 1 have been affected, or in other words sprites 6,4 and 1 are 
involved in a collision. 

A most useful location! 

Turning sprites off 

Well, we'll have to get rid of them sometime! The quick and easy way 
to turn them all off is to type POKE V + 21,0, but for selected sprites 
you must use: 

POKE V + 21,PEEK(V + 21)AND(255 - 2 to the power of SN) 
where SN is the sprite number from to 7. 

Sprite movement 

We've already shown you sprites moving across the screen, and you 
should now be in a position to amend the games listings given in this 
chapter to incorporate your own sprites. 

Just define the sprites first, and then POKE the appropriate values into 
the X and Y co-ordinate locations as the nature of the game dictates. 

Of course, this game could also be adapted for control by a joystick, 
using the following locations to test for movement, firing and so on. 

For joystick in port 1 : 

SI =PEEK(56321) 

-((S1AND16) = 0) gives a 1 if the fire button is pressed, and a if it's not. 

((S1AND15) = 4)-((S1AND15) = 8) gives a 1 for moving left, a -1 for 
moving right, and a if nothing's doing. 

((S1AND15) = 1)-((S1AND15) = 2) gives a 1 for moving down, a -1 for 
moving up, and a if nothing's doing. 

To read a joystick in port 2, let S2 = 56320, and substitute S2 for 
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S1 in all of the above expressions. 

Having done that, it would be a relatively simple matter to have a sprite 
controlled joystick game, written entirely in Basic. 

None of the programs that follow have been designed with sprites in 
mind, although it wouldn't be too difficult to convert any of them to 
respond to a joystick input rather than a keyboard input. 

Space Battle 

This first program, a fairly simple game, was designed to show how 
up to four sprites could be moved around the screen at the same time, 
while also providing a reasonably challenging game. 

The object of the game is to stop the aliens (two sprites) from reaching 
the bottom of the screen by manoeuvring your spaceship around and 
firing at them. Your spaceship is, needless to say, another sprite, and 
a fourth sprite appears in the form of the missile which you launch 
against the aliens. 

The whole game is played on a starry background, with the noise tone 
selected from the waveforms available indicating the descent of the 
aliens. 

And now, a few notes about the program. 



Program notes 

We won't go through every single line, but instead indicate routines 
of some importance, and also point out where anything interesting 
is happening. 

Line 8 : clear the sound channel, and set the volume to its highest level. 

Line 9 : set various sound parameters (see chapter eight). 

Line 10 : set x position of sprite (you), and go to subroutines to set 
up other sprites and give instructions. 

Lines 20-40 : sprite parameters. 

Lines 45-60 : which key pressed (SP denotes the speed of the game). 



55 



Lines 100-104 : moving left! 

Lines 200-206 : moving right! 

Lines 300-316 : move missile if fired. 

Lines 400-412 : generate or update aliens. 

Lines 414-421 : check progress of aliens, and change colour, and/or 
expand, if necessary. 

Lines 500-520 : check for collision between alien and missile. 

Lines 600-620 : oops! 

Lines 2000-2200 : instructions for playing. 

Lines 62000-62035 : get sprite data. 

Lines 63000-63345 : the data itself. 



8 S=54272: FDR I=1T024 : POKES+I ,0: NEXT: POKE S+24,15 

9 POKE S+5,5:P0KE S+6,10a:P0KE S+12,5:PaKE S+13,10 
8: POKE S+4, 129: POKE S+1 1,129 

10 T=4: X=160: G0SUB62000: eaSUB2000 

20 REM START OF GAME PROPER 

21 POKE V+16,0 

22 POKE V+21 ,0 

25 POKE V+21 ,255 

26 POKE V+4,0:POKE V+5,0 
30 POKE V+ 1 , 227 : POKE V , X 
40 REM 

45 IFPEEK(197)=10THEN100:REM MOVE LEFT 

50 IFPEEK(197)=18THEN200:REM MOVE RIGHT 

60 I FPEEK ( 1 97 ) = 1 ANDF=OTHENF= 1 : SP=SP+ . 2 : 60T0300 : REM 

FIRE 
65 IFF=1THEN310 

70 G0SUB500:B0SUB510:G0T0 400:REM NOTHING DOING, S 
O UPDATE ALIENS 

100 X=X-10-INT(SP) : IFX<25ANDPEEK (V+16> =OTHENX=25 

101 IFX<1THENP0KEV+16,0: X=254 

102 POKE V,X: IFF=1THEN310 

103 GOTO 400 

104 GOTO 40 

200 X=X+10+INT(SP) : IFX>254THENPOKE V+16,1:X=0 



56 



202 IFPEEK(V+16>»1ANDX>60THENX»60 

204 POKE V,X: IFF=1THEN310 

205 BOTO 400 

206 GOTO 40 

300 IFF=1THEN302 

301 IFF=OTHEN40 

302 Xl-Xs Yl=207i IFPEEK(V+16)=1THENPGKE V+l&,5 
304 POKE V+4,XliP0KE V+5,Y1 

310 Yl=Yl-20-INT(SP> : IFYK25THENY1 =255 s POKE V+5,Y1 « 

F=O:0OTO 40 

312 GOSUB500:GOSUB510 

314 POKE V+5,Y1 

316 G0SUB510:G0SUB500 

400 REM ALIENS 

402 IFAP=1THEN407 

403 AX=INT (RND ( . 5) *230+25) : AY«20 

404 POKE V+2,AX:POKE V+3,AY: AP-1«P0KE V+4O,6iP0KE 
V+29,0 

407 IFAM=1THEN410 

408 AA>:INT <RND ( . 5) *230-i-25) : AB»0 

409 POKE V+7,AB:P0KE V-»^6, AA: AM-l t POKE V-i-42,4iPaKE 
V+29,0 

410 AY-AY+2+ 1 NT ( SP ) i POKE V+3 , AY s AB»AB+2-i- 1 NT ( SP > : PO 
KEV+7,AB 

412 POKE S,AY:P0KES+1, INT (AY/4> (POKE S+7,AB:P0KE S 
-•-8,INT(AB/4) 

414 IF AY>220THEN600:REM END OF GAME! 

415 IFAY>120T^«^«P0KEV+40,7 

416 IFAY>160THENP0KE V+40,9j IFPEEK(V+29)-OTHENPOKE 
V+29,2 

417 IFAY>160ANDPEEK(V+29)»8THENP0KE V+29,10 

418 IF AB>220THEN600sREM END OF GAME! 

419 IFAB>120THENP0KEV+42,3 

420 IFAB>160THENP0KE V+42, 1 s IFPEEK (V+29) -OTHENPOKE 
V+29,8 

42 1 I FAB > 1 60ANI)PEEK ( V+29 ) -2THENP0KEV+29 , 1 
450 GOTO 40 

5O0 I FPEEK ( V+30 ) =246THENAP»0 i POKEV+3 , O i POKE V+2 , O I Y 
l>=10:AK>cAK-t-l 

502 I FPEEK ( V+30 ) =254THENAP-0 : POKEV+3 , O t POKEV+2 , 1 Y 

1==10:AK=AK+1 

505 RETURN 

510 IFPEEK(V+30)=252THENAM=0iP0KEV+7,0sP0KE V+6,0( 

Y1=10:AK=AK+1 

520 RETURN 

600 POKE V+21,0: PRINT" CCLR3YOU BLEW IT!!" 

602 PRINT" C2CD,CL3"AK" ALIENS KILLED !!" 

604 POKE S+4, 1291 POKE S+1 1 , 129: POKE S, 10: POKES+1 ,3 

0:POKE S+7,10:POKE S+8,30 

606 F0RI>1T010:P0KE 53280, INT (RND ( . 5) •16) I FORJ-ITO 
10O:.NEXTJ,I:POKE S3280,9 

608 PRINT"CWHT,2CD3PRESS SPACE' TO START AGAIN." 
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610 GET GU*:IFGU*<>" "THEN610 
612 PRINT"C2CDDDK, JUST HANG ON ! " 
620 RUN 
699 STOP 

1999 END 

2000 REM INSTRUCTIONS 

2010 POKE 53280,9: POKE 5328 1,0 

2012 PRINT" CCLR,WHT 3 WELCOME TO CYELISPACE INVASION 

2014 PRINT"C2CD,WHT3JUST STOP THE INVADERS FROM RE 
ACHING THEBOTTOM OF THE SCREEN." 

2015 PRINT" [2CD 3 PRESS A' TO MOVE LEFT , ' D ' TO MOVE 
RI6HTAND RETURN' TO FIRE." 

2016 PRINT"C2CD]BUT BE WARNED : THE ACTION IS SLOW 
LY, BUT SURELY, GETTING FASTER!" 

2017 PRINT" [2CD1 PRESS SPACE' TO START" 

2018 GETKE*: IFKE*<>" "THEN201B 
2020 PRINT"CCLR]" 

2025 FOR I = 1 T075 : PL= 1 NT ( RND ( . 5 ) »800 ) 

2026 POKE 1024+PL,46:P0KE 55296+PL , INT (RND ( . 5) »16) 

2027 NEXT 
2200 RETURN 
62000 V=53248 

62005 B (O) =248: B ( 1 > =249: B (2) =250: B (3) =251 : B (4) =252 
: B ( 5 ) =253 : B ( 6 ) =254 : B ( 7 ) =255 
62010 NS=T: IFNS=OTHENRETURN 
62015 F0RA=1T0NS 

62020 RE ADSK , M 1 , M2 : I FSK=OTHENPOKEV+28 , PEEK ( V+28 > AN 
D255-2^ ( A- 1 ) : 60T062030 

62025 POKE V+2B , PEEK ( V+28 ) 0R2'^ ( A- 1 > : POKEV+37 , M 1 : POK 
EV+3a,M2 

62030 READCD : P0KEV+38+A , CO : P0KE2039+A , B ( A- 1 ) 

62035 FORC=B ( A- 1 ) *64TOB ( A- 1 ) ♦64+63 ; RE ADQ : POKEC , Q : N 

EXT: NEXT: RETURN 

63000 DATA 0,2,7,1 

63005 DATAO, 24, 0,0,60,0,0, 102,0,0,219,0, 1 , 189, 128, 
1 

63010 DAT A2 19, 128, 1 ,231 , 128, 1 , 255 , 128, 1 , 255 , 128, 3 , 
255, 192,7,255 

63015 DATA224, 15,219,240,31 ,255,248,63,255,252,63, 
219,252,63,255,252 

63020 DATA60, 195,60,56,255,28, 16, 126,8, 16,60,8,0,2 
4,0,0 

63025 DATA 0,2,7,6 

63030 DAT AO, 0,0, 0,0,0,0,0,0,0, 195,0, 1 ,231 , 128,7 
63035 DATA255, 224, 15,255,240,31 ,0,248,63,255,252, 1 
07,255,214,232,0 

63040 DATA23, 107,255,214,63,255,252,31 ,0, 248, 15,25 
5,240,7,255,224 

63045 DATAO, 195,0,0, 195,0,0, 195, 0,0, 195, 0,0, 195,0, 
O 

63200 DATA O , O , O , 12 
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63205 DATAO, 48, 0,0, 48, 0,0,48,0,0, 120,0,0,252,0,1 
63210 DATA254,0, 1 ,254,0, 1 ,254,0, 1 ,254,0,3,3,0,6, 1 
63215 DATA128, 6, 1,128, 6, 1,128, 6, 1,128, 0,0, 0,0, 0,0 
63220 DATAO, 0,0, 0,0, 0,0, 0,0, 0,0,0,0,0, 0,0 
63325 DATA 0,2,7,4 

63330 DATAO, 0,0, 0,0, 0,0, 0,0,0,195, 0,1, 231 ,128,7 
63335 DATA255 , 224 ,15, 255 , 240 , 3 1 , O , 248 , 63 , 255 , 252 , 1 
07,255,214,232,0 

63340 DATA23, 107,255,214,63,255,252,31 ,0,248,15,25 
5,240,7,255,224 

63345 DATAO, 195, 0,0, 195, 0,0, 195, 0,0, 195, 0,0, 195,0, 

O 



Notes 

There are no graphics other than sprites used in this game, so there's 
nothing to worry about there. The only thing to watch out for is the 
strange symbol in lines 62020 and 62025, which is meant to be an up- 
arrow (raising to the power of) symbol, but my printer just wouldn't 
have it! 



Sprite Generator 

Now that you've seen a few sprites in action, and hopefully designed 
a few of your own, we'll make it a lot easier for you by giving you 
a listing for a sprite generator. This one is for single-coloured sprites 
only, but there will be a multi-coloured one a little later on. 

There is some data already in there for displaying a sprite on the screen 
(it's our old friend the Duckworth duck again), so that you can see 
what's happening. 

Using this program you can define sprites to your heart's content, move 
them about the screen, convert them to Basic data statements, expand 
or contract them, and do just about everything you'd legally want to 
do to a sprite. 



Program notes 

This one is pretty heavily REMmed, so it shouldn't be too difficult to 
see what's happening. Nevertheless, we'll go through it ail anyway. 

Line 20 : using spare space in cassette buffer, indicate position of first 
sprite. 
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Lines 50-60 : read data, and if there is some go and draw up sprite. 

Line 90 : function for keeping track of cursor on screen. 

Lines 100-160 : sprite parameters. 

Lines 180-290 : put up screen display. 

Line 300 : and display program options. 

Lines 330-570 : check for user update. 

Lines 580-650 : point added, so update screen display and sprite display. 
Lines 660-720 : editing another sprite! 

Lines 730-800 : point removed, so again update both screen and sprite 
display. 

Lines 810-850 : set up initial sprite, if any. 

Lines 860-880 : define array as used in sprite calculation. 

Lines 900-990 : expanding/contracting sprite in either X or Y direction. 

Lines 1000-1140 : on-screen instructions. 

Lines 1 150-1200 : clear sprite and update screen display (by pressing 
shift a;iu clear home keys). 

Lines 1210-1390 : sprite goes walkabout, so check X and Y registers, 
and don't let it go too far off screen. 

Lines 1400-1440 : sprite colour change. 

Lines 1450-1590 : turn sprite data into actual data statements. 
Lines 30000-30010 : the sprite data (a duck). 
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10 REM SPRITE GENERATOR 

12 REM FROM AN ORIGINAL PROGRAM BY RICHARD FRANKLI 
N 

14 REM WELL DONE! 
20 POKE 829,223 

29 REM 

30 REM IF ANY SPRITE DATA, SET UP SPRITE 

31 REM IT LOOKS AN AUFUL LOT BETTER UNEXPANDED 
40 POKE 828,0 

50 READ SP 

60 IF SP>OTHEN 810 

69 REM 

70 REM NO MORE SPRITE DATA 

71 REM 

80 GOSUB 860 : POKES 328 1,0: P0KE53280 , 8 : PR I NT " C YEL 3 " 

90 DEFFNA < Z Z ) = 1 064+R»40+C 

1 00 V=53248 : NO=PEEK ( 829 ) 

1 10 XL=0: YL=1 s XG=16: SE=21 : XY=23: XX=29 

120 SC=39:PRINT"tCLR3" 

130 POKE 2040, NO: POKE V+SE,1:P0KE V+XY,1 
140 POKE V+XX,l:POKE V+ XL, 255: POKE V+YL,190 
150 POKE V+XG,0 
160 X=255:Y=»190 

169 REM 

170 REM SET UP DISPLAY 

171 REM 

180 PRINT"CHOME,GRN3X X X X":REM 

USES SHIFTED X FOR GRAPHICS 

1 85 LOC=64*NO s PR I NT " C HOME ] " 

190 FORI=LOCTOLOC+62STEP3 

200 FORJ=OT02 

210 ZZ*PEEK(I+J) 

220 FORK=7TOOSTEP-l 

230 A=INT( <ZZANDAX(K) )/AX<K) ) 

240 IFA=1THENPRINT"CYELDQ"5 :GQT0260:REM USES SHIFT 

ED Q FOR GRAPHICS 

250 PRINT" CYEL3. 

260 NEXTK 

270 NEXTJ 

280 PRINT 

290 NEXT I 

300 GOSUB lOOO 

309 REM 

310 REM SPRITE SET UP ON THE SCREEN 

320 REM INPUT CHANGES 

321 REM 
330 R=0:C=0 
340 Z=FNA(0) 

342 PC=PEEK<Z) sPK=Z 

345 POKE Z,24i 

350 POKE Z +54272,1 

360 GET A» : I FA»= " " THEN360 
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370 POKEZ+54272,7:PaKEPK,PC 

380 I F A*= " Q " THENPR INT"CCLR3":END 

390 IFA*="tCR]"ANDC=23THEN C=0:G0T0340 

400 I FA*= " C CR 3 " THENC=C+ 1 : B0T0340 

410 I FA*= " C CL 3 " ANDC=OTHENC=23 : 3070340 

420 I FA*= " [ CL ] •■ THENC=C- 1 : G0T0340 

430 I FA*= " C CD 3 " ANDR=20THENR=0 : G0T0340 

440 I FA*= " C CD 3 " THENR=R+ 1 : GOTQ340 

450 I F A*= " C CU 3 " ANDR=0THENR=20 : G0T0340 

460 I FA*= " C CU 3 " THENR=R- 1 : G0T0340 

470 I FA*= " [ HOME 3 " THENR=0 : C=0 : G0T0340 

480IFA*="[CLR3" THENGOSUB 1 1 50 : G0T0340 

490 IFA*="+"THEN580 

500 IFA*="-"THEN730 

510 IFA*="M"THEN1210 

520 IFA*="B"THEN1450 

530 IFA*="C" THEN 1400 

540 IFA*="X"THEN900 

550 I FA*= " N " ANDN0-223< 3 1 THENNO=NO+ 1 : GOTO 1 30 
560 IFA*="E"THEN660 
570 GOTO 340 

574 REM 

575 REM ADD POINT 

576 REM 

580 Z=FNA(0> 

590 Z1=PEEK<Z) 

600 IFZ1=81THEN340 

610 P0KEZ,81 

620 BYTE=INT(C/8)+R*3 

630 BIT=7-(C-INT(C/'3)«8) 

640 POKEBYTE+NO»6/^ ^EEK ( B YTE+NO*64 > OR AX ( B I T ) 
650 GOTO 340 

654 REM 

655 REM INPUT SPRITE # TO EDIT 

656 REM 

660 INPUT"[HOME,23CD,7CR,RVS3SPRITE NO. C4C 
L3";S 

670 IFS<OORS>31THEN660 

680 IF N0=223+STHENZZ=1:G0T0700 

690 N0=223+S 

700 PR I NT " t HOME . 23CD , 39SP , HOME 3 " ; 
710 IFZZ=lTHENZZ=0:eOT0340 
720 GOTO 130 

724 REM 

725 REM DELETE POINT 

726 REM 

730 Z=FNA(0) 

740 Z1=PEEK(Z) 

750 IFZ1=46THEN 340 

760 POKE Z,46 

770 BYTE=INT(C/a)+R»3 

7BO BIT=7-<C-INT<C/8)»8) 
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790 POKE BYTE+ND»64, PEEK (BYTE+NO*64) AND (255-AX (BIT 
) > 

800 GOTO 340 

804 REM 

805 REM IF ANY DATA, SET SPRITES UP 

806 REM 

810 L0C=SP*64 

820 FOR I=LOC TO LOC+62 

830 READ A: POKE I, A 

840 NEXT I 

842 READ CS 

844 M0=PEEK(a29) 

845 POKE 53248+39+NO-223,CS 
850 BOTO 50 

854 REM 

855 REM SET ARRAY WITH POWERS OF TWO 

856 REM 

860 FOR 1=0 TO 7 
870 AX(I)=2-^I 
880 NEXT I 
890 RETURN 

894 REM 

895 REM INPUT FOR EXPAND 

896 REM 

900 PRINT"CHOME,23CD,10CR,RVSlENTER X OR Y" 
910 GET A* : I F A*< > " X " ANOA«< > " Y " THEN900 
920 IFA*="X"THEN960 

930 I FPEEK ( V+ X Y ) = 1 THENPOKEV+ X Y , O : G0T0980 
940 POKEV+XY,l 
950 60T0980 

960 I FPEEK ( V+ X X ) = 1 THENPOKE V+ X X , O : G0T0980 
970 P0KEV+XX,1 

980 PR I NT " C HOME , 23CD , 1 OCR , 1 2SP 1 " 
990 GOTO 340 

994 REM 

995 REM D I SPAY CONTROL OPTIONS 

996 REM 

lOOO PRINT" CHOME]"SPC (26) " CRVS 3 CONTROLS C OFF 3 " 

1 005 PR I NTSPC ( 25 ) '■ SPR I TE # C RVS , BRN 1 " NO-223 

1010 PRINT: PRINTSPC (25) "CWHT,RVS3ECOFF]DIT SPRITE 

#" 

1020 PRINTSPC(25) "[RVS3NCOFF3EXT SPRITE «" 
1030 PRINTSPC(25) "CRVSIMCOFFDOVE SPRITE" 
1040 PRINTSPC(25) "tRVS]CCOFF]OLOUR CHANGE" 
1050 PRINTSPC(25) "CRVS3XCOFF3PAND" 
1060 PRINTSPC(25) "CRVS3+COFF3 ADD DDT" 
1070 PRINTSPC(25) "CRVS3-C0FF] REMOVE DOT" 
1080 PRINTSPC(25) "CRVS3BCOFF3ASIC DATA" 
1090 PRINTSPC(25) " CRVSaQC0FF3UIT" 
1100 PRINT: PRINTSPC (25) "USE CURSOR" 
mo PR I NTSPC ( 25 ) " CONTROL TO " 
1120 PRINTSPC (25) "POSITION" 
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1 1 30 PR I NTSPC ( 25 ) " CURSOR . " 
1140 RETURN 

1144 REM 

1145 REM CLEAR PRESENT SPRITE 

1146 REM 

1 1 50 FOR I =0T062 : POKENO*64+ I , O : NEXT I 

1160 F0RI=0Ta20 

1170 F0RJ=0T023 

1180 POKE 1064+ 1*40+ J ,46 

1190 NEXTJ,I:R=0:C=0 

1200 RETURN 

1204 REM 

12Q5 REM MOVE SPRITE AROUND SCREEN 
1206 REM 

1210 PRINT" C HOME, 22CD,RVS a USE CURSOR KEYS TO MOVE 
THE SPRITE," 

1220 PRINT" [RVS: RETURN TO RETURN TO EDITINB" 

1230 BETA*: I FA*="" THEN 1230 

1240 IFA*=" CCRD "ANDX<319THeNX=X+2 

1250 IFA*=" CCL] "ANDX >lTHENX=X-2 

1 260 I FA*= " C CD 3 " ANDY< 254THENY=Y+2 

1 270 I FA*= " C CU 3 " ANDY > 1 THENY=Y-2 

1280 POKE V+YL,Y 

1290 POKE V+XG, INT(X/255) 

1300 POKE V+XL,X-INT(X/255)*255 

1310 IF A*=CHR*<13)THEN1330 

1320 G0T01210 

1330 POKE V+XL,255 

1340 POKE V+YL.190 

1350 POKE V+XG,0 

1360 X=255:Y=190 

1370 PRINT" C HOME, 22CD,36SP 3" 

1380 PRINT" [36SP, HOME 3" 

1390 GOTO 340 

1394 REM 

1395 REM CHANGE SPRITE COLOUR 

1396 REM 

1400 INPUT"CH0ME,23CD,9CR,RVS3C0L0UR (0-15) 

C5CL3";CD 
1410 IF C0<00RC0>15THEN1400 
1420 POKE V+SC,CO 

1 430 PR I NT " [ HOME , 23CD , 39SP , HOME " ; 
1440 GOTO 340 

1444 REM 

1445 REM CREATE DATA STATEMENTS FOR 

1446 REM PRESENT SPRITE 

1447 REM 

1 450 PR I NT " C CLR . 3CD 3 " ; PEEK ( 828 ) +30000 ; " DATA " R I GHT* 

(STR*<NO) ,LEN<STR*<NO) )-l) 

1 460 P0KEB28 , PEEK < 828 ) + 1 : FOR I =0T08 

1 470 PR I NTPEEK ( 828 ) +30000 " DATA " ; 

1480 FORJ=OT06 
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1 490 BB-PEEK ( N0*64-M #7+ J ) 

ISOO BB«-RIGHT«(STR«(BB> ,LEN(STR«(BB) )-l> 
1510 PRINTBB*;","; 
1520 NEXT J 

1530 PRINT-CCL3 " I P0KE828,PEEK (828) +1 
1540 NEXT I 

1 550 PR I NTPEEK ( 828 ) +30000 j " DATA " ; CO j " , - 1 " 
1560 PRINTXRUNSOCHOME]" 
1570 POKE 198,12 

1580 FORI-OT011iPOKE631+I,13:NEXT I 
1590 P0KE829,N0iEND 

29997 REM 

29998 REM SPRITE DATA STORED FROM HERE 

29999 REM 

30000 DATA223 

30001 DATAO, 0,0, 0,3, 128,0 

30002 DATA4,64,0,9, 112,0,8 

30003 DATA56,0,8, 112,0,8, 128 

30004 DATA78, 9, 0,177,249,0,100 

30005 DATA80,128,170,44,64,101,152 

30006 DATA32, 19,0,32,8,0,64 

30007 0ATA7,255, 128,0,108,0,0 

30008 DATA108,0,0,111,0,0,110 

30009 DATAO,0, 120,0,0, 112,0 

30010 DATA 15 ,-1 



Notes 

There are only two graphic characters used in this program: the shifted 
X character in line 180, and the shifted Q in line 240. 

Our problem with the up-arrow key surfaces again in line 870 (see notes 
for Space Battle above). 

Apart from that, it shouldn't be too difficult to get this program up 
and running. 

Continuing with my policy of letting you play about with a program 
before showing you the utility used to generate it, the next (very!) 
simple game was written to show how four different multi-coloured 
sprites could be used in a game to produce a kind of animation effect. 

This is just one way of doing it, obviously there are others. However, 
the simple expedient of replacing one sprite with another slightly 
different one in exactly the same position does manage to produce 
the effect that we're after. 
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Alpine Slopes 



This really is a very straightforward program, but it does show what 
we were after: four different multi-coloured sprites in action according 
to the dictates of the person playing the game. 

It's an old idea - you have to guide your little man down a ski-slope 
which zigzags about from side to side. Needless to say, if you hit the 
sides that is the end of the slope as far as you're concerned, and the 
game gives you a report of how long you managed to stay upright. 

Just to make it that little bit harder, the course also gets narrower the 
longer the game progresses. 

The four sprites used are all variations on the theme of a man on (or 
off, in one case) a pair of skis. In order of data, they show a little man 
skiing to the left, one skiing to the right, one skiing straight ahead (with 
a 'look, no hands' approach), and the fourth sprite is of a not very 
happy skier who's just collided with the side of the course. 



Program notes 

Nothing of any great difficulty with this one, so here we go. 

Line 10 : declare number of sprites, and then set sprites up and display 
instructions. 

Line 12 : place X and Y co-ordinates at top centre of screen. 

Line 16 : set up various sound parameters. 

Line 20 : set up a primitive wall! 

Line 25 : set up various sprite parameters. 

Lines 30-32 : set up start of course. 

Line 33 : set time at start of game. 

Line 34 : set man up skiing straight ahead. 

Lines 40-80 : which direction will he ski in? '1 ' indicates left, '2' indicates 
straight ahead, and '3' off to the right. 
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Lines 100-199 : moving left! 
Lines 200-299 : and straiglit ahead. 
Lines 300-399 : and to tlie riglit. 

Line 500 : if tlie sprite's hit anything, that's the end of the game. 

Line 502 : update sl<i-course. 

Line 504 : bacl< to where you came from. 

Lines 500-599 : end of game, so start another one. 

Lines 600-610 : checl< to see whether course needs narrowing, and 
which direction to move it in. 

Lines 2000-2100 : instructions. 

Lines 62000-62035 : read and set up sprite data. 

Lines 63000-63520 : sprite data. 



10 T=4 : G0SUB62000 : G0SUB2000 
12 X=170:Y«60 

16 POKE S+24,15sP0KE S+5,40»P0KE S+6,146!P0KE S+4, 
129: POKE S+3,12 
18 PRINT" CGRN3 

20 B*="XX X)f":REM USE SHIFTED X FOR BR 

APHICS 

25 POKE V+2 1,4: POKE V+4,X:P0KE V+5, Y: POKEV+31 ,0: P» 
12 

30 PRINT" CCLR3 "TAB (P>;B« 

32 F0RI=1T020:PRINTTAB<P) ;B*:NEXTI 

33 BB=TI 

34 GOTO 200 
40 GETA* 

50 IFA*="1 "THEN 100 
60 IFA*="2"THEN200 
70 IFA*="3"THEN300 
75 IFA«<>""THEN200 
80 GOTO 40 

lOO POKE V,X(POKE V+1,Y 
102 POKE V+21,1 
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103 X=X-8:Y=Y+1 

104 B0SUB500 

105 IFX<25THENX=25 

106 POKE S+1,5:P0KE S,20 

107 IFY>180THENY=lBO 

120 IFPEEK(197)=56THEN100 
130 IFPEEK(197)=64THEN100 

199 GOTO 40 

200 POKE V+4,X:POKE V+5,Y 

202 POKE V+21,4 

203 X=X:Y=Y+1 

204 G0SUB500 

205 IFX<25THENX=25 

206 POKE S+1,10:P0KE S,30 

207 IFY>180THENY=180 

220 I FPEEK (197) =59THEN200 
230 I FPEEK < 1 97 ) =64THEN200 

299 GOTO 40 

300 POKE V+2,X:POKE V+3,Y 

302 POKE V+21 ,2 

303 X=X+8:Y=Y+1 

304 G0SUB500 

305 IFX>255THENX=255 

306 POKE S+ 1,5: POKE S,40 

307 IFY>180THENY=1B0 
320 I FPEEK (197) =aTHEN300 
330 I FPEEK ( 1 97 ) =64THEN300 
399 GOTO 40 

500 I FPEEK ( V+3 1 )< >OTHENPR I NT " C HOME , GRN 3 KABOODMMMM ! 
! ! ! " : GOTOSSO 
502 G0SUB600 
504 RETURN 

550 POKE V+6»X:P0KE V+7,Y:P0KE V+21, 8 

551 POKE S+4,129:POKE S+l,20:POKE S,40 

552 F0RI=lTa2000: NEXT: POKE V+21,0 

554 PRINT"CCLR]OH DEAR I'" 

555 PRINT"C2CDDYOU LASTED " ; INT ( (TI-BB) /60) ; "SECON 
DS! " 

560 POKE S+4, 129: POKE S+ 1,20: POKE S,40 

599 POKE V+3 1,0: RUN 

600 A=A+1: IFLEN(B*)<10THEN602 

60 1 I FA / 30= I NT ( A/ 30 ) THENB*=LEFT* ( B* , 2 ) +M I D* ( B* , 3 , L 
EN(B*>-5)+RIGHT*(B*,2) 

602 I F ( RND ( . 5 ) * 1 ) >4 . 6THENP=P+ 1 : GQT0606 
604 P=P- 1 : I FP=- 1 THENP=0 : G0T0608 

606 IFP>19THENP=18 

609 PRINTTAB(P)B* 

610 RETURN 

1999 END 

2000 REM INSTRUCTIONS 

2001 POKE V+21, 4: POKE V+4, 170: POKE V+5,52 
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2002 PRINT"CCLR3" 

2003 S<=:54272:F0RI>0T024iPCM<E S+I,OiNEXT 

2004 POKE 5328 1,1: POKE 53280,12 

2006 PRINT" C2CD,QRN]MELC0ME TO THE ANCIENT ART OF 
SKI-IN6. " 

2008 PRINT" C2CD] STEER YOUR LITTLE MAN DOWN THE TRA 
CK BY USIN6 THE 1,2 AND 3 KEYS 

2010 PR I NT "FOR M0VIN6 LEFTSTRAI8HT, AND RIBHT RESP 
ECTIVELY. " 

2012 PRINT"C2CD]AVQID THE SIDES OF THE TRACK FDR A 
S L0N6AS YOU CAN. " 

2014 PRINT"C2CD3PRESS SPACE" WHEN YOU'RE READY TO 
START" 

20 1 6 SETK Y» : I FKY*< > " " THEN20 1 6 
2020 PRINT"CCLR3" 
2100 RETURN 
62000 V=53248 

62005 B (O) =248: B ( 1 > =249: B (2) =250: B (3) =251 : B (4) =252 
: B (5) =253: B (6) =254: B (7) =255 
62010 NS=T: IFNS=OTHENRETURN 
62015 F0RA=1T0NS 

62020 READSK , M 1 , M2 : I FSK=0THENP0KEV+28 , PEEK ( V+28 ) AN 
D255-2'^ ( A- 1 ) : 60T062030 

62025 POKE V+28 , PEEK ( V+28 > 0R2'' ( A- 1 ) : POKEV+37 , M 1 : POK 
EV+38,M2 

62030 READCO : POKEV+38+ A , CO : P0KE2039+A , B ( A- 1 ) 
62035 FORC=B < A- 1 ) *64TaB ( A- 1 ) *64+63 : READQ : POKEC , Q : N 
EXT: NEXT: RETURN 
63000 DATA 1,2,7,8 

63005 DATAO, 80, 0,0, 144, 0,0, 144,0,0,80,0, 1 ,84,0, 1 
63010 DATA244, 0,5, 212, 0,21, 116, 0,81, 84, 0,65, 84, 0,2 
,168 

63015 DATAO, 2, 168, O, 10,40,0, 10,40,0,40, 160,0, 162, 1 
28, 

63020 DATA162, 145,64,41 , 165,0,5, 164,0,20,80,0, 17,6 
4,0,0 

63025 DATA 1,2,7,8 

63030 DATAO, 5, 64, 0,6, 64, 0,6, 64, 0,6, 64, 0,21, 64,0 
63035 DATA31, 64, 0,23,80,0, 21, 84, 0,31,69,0, 21 ,64,0, 
42 

63040 DATA128, 0,42,128,0, 42, 128, 0,40, 160,0,10,40,0 
,2,138 

63045 DATAl ,74,40,0, 105, 160,0,20,80,0,5,20,0, 1 ,69, 
O 

63050 DATA 1,2,7,8 

63055 DATAO, 20,0,0,105, 0,0, 105, 0,4, 20, 16, 4, 85, 16, 5 
63060 DATA125, 80, 0,125, 0,0, 85, 0,0, 85, 0,0,170,0, 0,1 
70 

63065 DATAO, O, 170,0,0, 130,0, 1 , 130,64, 1 , 130,64, 1 , 13 
0,64 

63070 DATAl , 130,64, 1 , 130, 64, 1 ,65,64, 1 ,65,64, 1 ,65,6 
4,0 
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63500 DATA 1,2,7,8 

63505 DAT AO, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 1 
63510 DATAO, 16,0,64,64,0, 17 , 0, 0, 4 , , O, 17 , O , O , 64 
63515 DATA64, 1,0, 16, 0,0, 0,0, 0,0, 160, 0,1 0,40,0,40 
63520 DATA10,0, 160,2, 150, 128,0, 125,0,0, 125,0,0,85, 

o,o 



Notes 

Nothing to note with this one really, as only one graphics character 
has been used. That is in line 20 where the italicised Xs are meant to 
show the shifted X character, the three leaf clover, otherwise known 
as the club symbol. 

As before, we'll now give you the listing for the multi-colour sprite 
generator. The data that comes in it is meant to represent a sprite of 
someone pouring a pint of beer, but I think the end result failed to 
do justice to the idea. Still, the program's meant for your sprites, not 
mine, so we'll leave it to your imagination. 



Multi-Colour Sprite Designer 

This follows much the same format as the original sprite designer 
program, with a number of important modifications to allow for the 
fact that we are using multi-coloured sprites now. The listing is given 
again in full, although you will find that quite a few lines are in common 
with that original listing. 

However, on the theory that if we just gave the new lines and told 
you which lines to remove from the old listing then everyone would 
get totally confused, we present it here in full. 

The lines to watch out for are 625 to 627, which are the ones used 
to calculate the update for the sprite itself, once the screen display 
has been updated by the user. These look and see what the two spaces 
on the screen represent, since we designated the three colours 
(forgetting background for a while), as a combination of spaces and 
shifted spaces. They may look the same on the screen to you, but 
to the program trying to keep the rest of the sprite the same as it was 
while updating the part you've chosen to alter, they look healthily 
different. 
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Program notes 

We'll go through the whole program again, to save you flipping back 
to the notes for the original sprite designer program and having half 
the pages in the book fall out. 

Line 45 : set up parameters for video chip, and where sprite data will 
be stored. 

Lines 50-60 : any data to be read? 

Line 90 : function to keep track of cursor on screen (double cursor 
this time). 

Lines 110-165 : set up various sprite parameters. 
Lines 180-183 : set up screen display. 

Line 184 : print on-screen instructions, and no I can't remember why 
I put in GOTO309 either nowl 

Lines 330-370 : update double cursor on screen. 

Lines 380-570 : check on user input. 

Lines 580-620 : point added, so update screen and sprite displays. 

Lines 625-627 : checks state of old sprite before updating it. 

Lines 730-770 : point removed, so update screen and sprite displays 
again. 

Lines 808-850 : read any sprite data. 

Lines 900-990 : expand or contract sprite in either X or Y direction. 
Lines 1000-1140 : print on-screen options. 

Lines 1150-1200 : remove sprite, so clear screen and sprite displays. 
Lines 1210-1390 : sprite goes on sponsored walk. 
Lines 1400-1440 : change drawing colour. 
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Lines 1450-1590 : convert sprite to Basic data statements. 

Lines 3000-4004 : welcome to the show. 

Lines 30011-30021 : sprite data for beer pouring. 



10 REM MULTI-COLOUR SPRITE GENERATOR 

15 REM ON FIRST RUN THROUBH, TRY SELECTING (IN ORD 
ER) , COLOURS 1,9 AND 12 

20 REM FOR A GLIMPSE OF ONE OF THE AUTHOR'S FAVOUR 
ITE SIGHTS! ! 

29 REM 

30 REM IF ANY SPRITE DATA, SET UP SPRITE 

31 REM IT LOOKS AN AWFUL LOT BETTER UNEXPANDED 
40 POKE 82B,0 

45 V=5324a:NO=13:SP=13:POKE V+21,0 

50 READ FF 

hO IF FF>OTHEN 804 

69 REM 

70 REM NO MORE SPRITE DATA 

71 REM 

80 P0KE5328 1,0: POKE53280 , B : PR I NT " C YEL 3 " 

85 BOSUB 3000 

90 DEFFNA(ZZ)=1065+R»40+C 

110 XL=0: YL=1: XG=16: SE=21: XY=23: XX=29 

120 SC=39:PRINT"CCLR3" 

130 POKE 2040, 13: POKE V+SE,1:P0KE V+XY,0 
140 POKE V+XX,0:POKE V+XL , 255: POKE V+YL,190 
150 POKE V+XG,0 
160 X=255:Y=190 
165 POKE V+28, 1 

169 REM 

170 REM SET UP DISPLAY 

171 REM 

180 PRINT" EHOME, YEL, SP,24CBMP]": REM PRESS CBM KEY 
AND P FOR GRAPHIC CHARACTER 

181 FORI=OT020 

182 PRINT"CCBMN,24SP,CBMH3":REM PRESS CBM N AND CB 
M H FOR GRAPHICS CHARACTERS 

183 NEXTI:PRINT"CSP,24CBMYD:REM PRESS CBM KEY AND 
Y FOR GRAPHICS CHARACTER 

184 G0SUB1000:G0Ta309 

309 REM 

310 REM SPRITE SET UP ON THE SCREEN 

320 REM INPUT CHANGES 

321 REM 
330 R=0:C=0 
340 Z=FNA(0) 

342 PC=PEEK(Z) :PD=PEEK(Z+1) :PK=Z 

343 IFPC=160THENRV=128: 60X0345 



72 



344 RV=0 

345 POKE Z,24+RVsPOKE Z+1,24+RV 

346 KN=PEEK ( Z+54272 ) 2 KM-PEEK ( Z+54273 ) : I FKN=OTHENKN 
=1:KM=1 

350 POKEZ+54272,KN:POKE Z+54273, KM 
360 6ETA« : I FA*= " " THEN360 

370 POKEZ+54272,KN:POKE Z+54273, KM: POKEPK, PC :POKEP 
K+1,PD 

3B0 IFA*="Q"THENPRINT"CCLR,CD]I HOPE YOU'VE TURNED 

YOUR SPRITE INTO DATA!"! END 
390 IFA*="CCR3"ANDC=22THEN C-0ie0T0340 
400 I FA*= " C CR 3 " THENC-C+2 s B0T0340 
410 I FA*= " C CL 3 " ANDC=0THENC=22 s Q0T0340 
420 I FA*- " C CL 3 " THENC=C-2 1 G0T0340 
430 I F A*» " [ CD 3 " ANDR=20THENR=0 s Q0T0340 
440 1FA*=" CCD3 "THENR=R+1 : eOT0340 
450 I FA*= ■' C CU 3 " ANDR=OTHENR«20 1 GOT0340 
460 1 FA«= " C CU 3 " THENR=R- 1 s S0T0340 
470 I FA*= •• C HOUE 3 " THENR-O i C-0 : QOT0340 
480 I FM" " C CLR 3 " THENGOSUB 1 1 50 : Q0T0340 
490 IFA*="+"THEN580 
500 lFA*-"-"THEN730 
510 IFA»="M"THEN1210 
520 IFA*="B"THEN1450 
530 IFA*="C" THEN 1400 
540 IFA*="E"THEN900 
57b GOTO 340 

574 REM 

575 REM ADD POINT 

576 REM 

580 Z»=FNA(0) 

590 I FCS=A2THENK 1 ="224 : K2- 1 60 
595 I FCS=A4THENK 1 > 1 60 : K2-224 
600 I FCS-A3THENK 1 « 1 60 1 K2- 1 60 

610 P0KEZ,K1:P0KE Z+1 ,K2iP0KE55296+Z-1024,CSlP0KE 
55296+Z-1023,CS 

620 BYTE-INT (C/8) +R»3: 60SUB625t I30T0340 

625 CH=1065+40*R+a*INT (C/B) : TC-0: BI-B 

626 FORL 1 =CHT0CH+7 : P-PEEK (L1>:BI-B 1-1:1 FP- 1 600RP-2 
4THENTC=TC+2'^BI 

627 NEXTL1:P0KEBYTE+N0*64,TC:RETURN 

724 REM 

725 REM DELETE POINT 

726 REM 

730 Z=FNA(0) 

740 Z1=PEEK<Z) 

760 POKE Z, 32: POKE Z+1, 32 

770 BYTE=INT (C/8) +R«3: GOSUB625: B0T0340 

804 REM 

805 REM IF ANY DATA, SET SPRITES UP 

806 REM 

808 READ A1,A2,A3: IFAl=OTHENPOKE V+28 , PEEK ( V+28 ) AN 



73 



0255-2 '^ ( ) : G0T08 1 

809 POKE V+2a,PEEK(V+2B)aR2' (0) :POKE V+37,A2:P0KE 
V+3a,A3 

810 READ A4:P0KE V+39,A4 
815 LQC=SP«64 

820 FOR I=LOC TO LDC+62 
830 READ A: POKE 1,A 
840 NEXT I 
850 G0T050 

894 REM 

895 REM INPUT FOR EXPAND 

896 REM 

900 PRINT" C HOME, 23CD, 1 OCR 3 PRESS X OR Y" 
910 BETA*: IFA*<>" X " ANDA*<> " Y"THEN900 
920 IFA*="X"THEN960 

930 IFPEEK (V+XY) =1THENP0KEV+XY,0: GQT0980 
940 POKEV+XY, 1 
950 G0T0980 

960 I FPEEK ( V+X X ) = 1 THENPOKEV+ X X , O : G0T09a0 
970 P0KEV+XX,1 

980 PR I NT " C HOME , 23CD , 1 OCR , 1 2SP ] 
990 GOTO 340 

994 REM 

995 REM D I SPAY CONTROL OPTIONS 

996 REM 

1000 PRINT"[HOME,YEL3"SPC(27) " CRVS] CONTROLS C OFF 3 " 

1005 PRINTSPC (26) "SPRITE # O" 

1030 PRINTSPC (26) " CRVS:MCOFF3aVE SPRITE" 

1040 PRINTSPC (26) "CRVS3CCOFF3HANGE COLOUR" 

1050 PRINTSPC (26) " CKVSJECOFFIXPAND' 

1060 PRINTSPC (26) "tRVS]+[OFF 3 ADD DOT" 

1070 PRINTSPC (26) "CRVS3-COFF3 REMOVE DOT" 

1080 PRINTSPC (26) "CRVS3BCOFF3ASIC DATA" 

1090 PRINTSPC (26) " CRVS3QCOFF3UIT" 

llOO PR I NT: PRINTSPC (26) "USE CURSOR" 

1110 PRINTSPC (26) "CONTROL TO" 

1120 PRINTSPC (26) "POSITION" 

1130 PRINTSPC (26) "CURSOR. " 

1140 RETURN 

1144 REM 

1145 REM CLEAR PRESENT SPRITE 

1146 REM 

1150 F0RI=0T062:P0KEN0*64+I ,0:NEXTI 

1160 F0RI=0T020 

1170 F0RJ=1T024 

1180 P0KE1064+I»40+J,32 

1190 NEXTJ, I:R=0:C=0 

1200 RETURN 

1204 REM 

1205 REM MOVE SPRITE AROUND SCREEN 

1206 REM 

1210 PRINT"! HOME, 23CD 3 USE CURSOR KEYS/RETURN TO EX 



74 



IT. " 

1 230 GETA* : I FA*= " " THEN 1 230 

1 240 I FA*= " C CR 3 » ANDX< 31 9THENX=X+2 

1250 IFA«="CCL]"ANDX>lTHENX*X-2 

1 260 I FA*= " C CD 3 " AND Y< 254THENY«Y+2 

1270 IFA*="CCUa"ANDY>lTHENY=Y-2 

1280 POKE V+YL,Y 

1290 POKE V+XS,INT(X/255) 

1300 POKE V+XL,X-lNT<X/255)«255 

1310 IF A»=CHR»( 13) THEN 1330 

1320 60T01210 

1330 POKE V+XL,255 

1340 POKE V+YL,190 

1350 POKE V+XB,0 

1360 X=255iY=190 

1370 PRINT"CH0ME,23CD,39SP]" 

1390 GOTO 340 

1394 REM 

1395 REM CHANGE SPRITE COLOUR 

1396 REM 

1400 PRINT" C HOME, 23CD,YEL 3 PRESS 1, 2 OR 3 TO MAKE 
YOUR CHOICE. " 

1402 GETC6* : I FCB*= " " THEN 1 402 

1 403 I FCG*» " 1 " THENCS-A2 : GOTO 1 420 

1 404 I FCG*=" " 2 " THENCS=A3 • GOTO 1 420 

1 405 I FCG*= " 3 " THENCS=A4 i GOTO 1 420 

1406 GOTO 1402 

1420 POKE V+36+VAL(CG*) ,CS 

1 430 PR I NT " C HOME , 23CD , 38SP , HOME " ; 

1440 GOTO 340 

1444 REM 

1445 REM CREATE DATA STATEMENTS FOR 

1446 REM PRESENT SPRITE 

1447 REM 

1 450 PP>=PP+ 1 1 : PR I NT " C CLR , 3CD 3 " ; PP+30000 « " DAT A " 5 SP j 

" , 1 , " ; A2; " , " ; A3; " , " ; A4? " " 

1460 FORI=OT08 

1470 PRINTPP+I+30001"DATA"; 

1480 F0RJ-0T06 

1 490 BB-PEEK ( N0*64-i- 1«7+3> 

1500 BB«-RI6HT«(STR«(BB> ,LEN(STR«(BB> )-!> 

1510 PRINTBB«| 

1520 NEXT J 

1530 PRINT" CCL3 " 

1540 NEXT I 

1550 PRINTPP+10+30000t "DATA -1 " 1 NO-NO+1 1 SP-SP+1 
1560 PRINT"60T04SCH0ME]" 
1570 POKE 198,12 

1580 F0RIo0T011iP0KE631+I,13:NEXT I 
1590 END 

3000 PRINT" C CLR 3 MULT I -COLOUR SPRITE DESIGNER." 
3002 PRINT"C2CD3YOU CAN DISPLAY UP TO FOUR COLOURS 
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PER SPRITE NOW. THESE ARE :=" 
3004 PR I NT "[2CD 3 SPRITE MULTI-COLOUR ONE, 
3006 PR I NT "SPRITE MULTI-COLOUR TWO, 
3008 PR I NT "ORDINARY SPRITE COLOUR," 
3010 PR I NT "AND THE SCREEN COLOUR. " 

3012 PRtNT"C2CDDTHIS LIMITS OUR SPRITE RESOLUTION 
TO 12 BY 21 CHARACTERS.* 

3014 PRINT" C2CD 3 NEVERTHELESS, WITH A LITTLE BIT OF 

IMAGINATION, SOME "; 
3016 PR I NT "STAGGERING RESULTS CANBE ACHIEVED. " 

3018 GOSUB 4000 

3019 POKE 53281,1 

3020 PRINT"CCLR,YELDFIRST OF ALL, YOU MUST CHOOSE 
YOUR COLOURS FROM THE "s 

3022 PRINT" 16 AVAILABLE." 

3023 PRINTTAB(30)CHR*(18) "CBLK] COFF,GRN3 - O" 

3024 PRINTTAB(30)CHR*(18) "CWHT3 C0FF,GRN3 - 1" 

3025 PRINTTAB(30)CHR*<1B) "[RED] COFF,6RND - 2" 

3026 PRINTTAB(30)CHR*(18> "CCYN3 CDFF,GRN3 - 3" 

3027 PRINTTAB<30)CHR*(18) "CPUR3 [OFF,GRN] - 4" 

3028 PRINTTAB(30)CHR*(18) "CBRND COFF,GRN3 - 5" 

3029 PRINTTAB(30)CHR*<18) "CBLU3 COFF,GRN] - 6" 

3030 PRINTTAB(30)CHR*(18) "CYELl COFF,GRN] - 7" 

3031 PRINTTAB(30)CHR*(18) "CORG] C0FF,GRN3 - 8" 

3032 PRINTTAB(30)CHR*(18> "CBRN] COFF,GRN] - 9" 

3033 PRINTTAB(30)CHR*(ia) "CLT.REDD COFF.GRN] - 
lO" 

3034 PR I NTTAB ( 30 ) CHR* ( 1 8 ) " C GREY 1 3 



COFF,GRN] - 
CaFF,GRN3 - 
COFF,GRNJ ~ 
COFF,GRNa - 
C0FF,GRN3 - 



11" 

3035 PR I NTT AB ( 30 ) CHR* ( 1 8 ) " C GRE Y2 1 
12" 

3036 PRINTTAB(30)CHR*(18) "CLT.GRN3 
13" 

3037 PRINTTAB(30>CHR*(18) "CLT.BLU3 
14" 

3038 PR I NTT AB ( 30 > CHR* < 1 8 ) " C BRE Y3 3 
15" 

3040 INPUT "SPRITE MULTI-COLOUR ZERO" ; A2s IFA2<OORA 
2 > 1 5THENPR INT"C2CU3"! G0T03040 

3042 INPUT "SPRITE MULTI-COLOUR ONE" ; A3i IFA3<OORA3 
> 1 5THENPR I NT " C 2CU 3 " : GOT03042 

3044 INPUT "SPRITE ORDINARY COLOUR "; A4 : I FA4< OORA4 > 
1 5THENPR INT"[2CU3": G0T03044 

3045 CS=A4 

3046 GOSUB 4000 

3048 POKE V+37,A2:P0KE V+38,A3:P0KE V+39,A4 

3050 PRINT"CCLR,YEL3":P0KE 53281 ,0: PRINT" CHOME3MOV 
E THE CURSOR AROUND THE "; 

3051 PR I NT "SCREEN WITH THE CURSOR"; 

3052 PRINT" KEYS. DITTO FOR THE SPRITE USING MEN 
U OPTION M. 

3053 PRINT" CCD 3 WHEN SATISFIED, TURN IT INTO DATA 
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STATEMENTS BY USING OPTION B. *' 

3054 PRINT-THESE ARE LISTED AS LINES 3001 1-30020. " 

3055 PRINT" CCD] THE REST OF THE INSTRUCT I CH4S ARE 
DISPLAYED ON THE SCREEN." 

3056 PRINT"C2CD3APART FROM...! PRESS HOME TO MOVE 
THE CURSOR BACK TO THE TOP LEFT"j 

3057 PRINT" , AND CLR/HOME TO ERASE THE SPRI 
TE COMPLETELY." 

3058 PRINT" CCD3ALS0, WHEN CHANGING COLOUR, PRESSI 
N6 1 GIVES YOU MULTI-COLOUR "; 

3059 PRINT"ZERO, '2' GIVES YOU MULTI-COLOUR ONE 
,AND -3' GIVESTHE ORDINARY "; 

3060 PR I NT "SPRITE COLOUR." 
3065 GOSUB 4000 

3070 RETURN 

4000 PR1NT"C2CD3PRESS SPACE' TO CONTINUE" 
4002 GETSP* 1 1 FSP#< > " " THEN4002 
4004 RETURN 

29997 REM 

29998 REM SPRITE DATA STORED FROM HERE 

29999 REM 

30011 DATA 13 ,1, 1 , 9 , 12 

30012 DATA0,2, 128,0,2, 128,0 

30013 DATA2, 128,0,2,128,0,2 

30014 DATA128, 10, 170, 128,8,0,0 

30015 DATA8,0,0, 12,0,0,12 

30016 DATA68,0,29,1,0,79,16 

30017 DATA64, 31, 192,16,7,255,244 

30018 DATAl, 255, 253, 0,127,244,0 

30019 DATA31,208,0,7,64,0,1 

30020 DATAO,0,0,0,0,0,0 

30021 DATA -1 



Notes 

A few graphics characters to watch out for here, particularly in lines 
180, 182 and 183. 

Here we've used CBMP to represent pressing the Commodore logo 
key and the P key together, and likewise for CBMN, CBMH and CBMY. 
If you don't get a box appearing on the screen, you've gone wrong 
somewhere! 

There are no other graphic characters used, but you might get problems 
with lines 3023 to 3038, which are meant to draw up a display of all 
the available colours on the screen. You'll just have to be careful what 
you press. 
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Finally our old friend is at it again, i.e. the up-arrow key has once again 
appeared as a chinannan's hat in a few places, in lines 626, 808 and 809. 



To conclude 

I hope you'll find sonne or all of the above listings useful. They should 
certainly help towards a better understanding of how sprites work and 
how they can be manipulated on the Commodore 64. 



Before going on to user defined graphics and high resolution plotting, 
it would help if we actually knew what we were going to be talking 
about, so we'll conclude chapter four with a fairly detailed look at the 
graphics chip that does it all, namely the 6566 Vic chip. 

6566 Video interface chip 

The 6566 is a multi-purpose colour video controller device, capable 
of being used in quality arcade game terminals, which we have control 
over in the Commodore 64. It has 47 control registers, which are 
accessed by any 6502 compatible 8 bit microprocessor, in this case 
the 6510. In this section we'll be taking a detailed look at its various 
operation modes and the graphics options it gives us. 



Character display mode 

In this particular mode, the 6566 fetches character pointers from the 
video matrix area of memory, and translates that into character dot 
addresses in the 2K character base of memory. The video matrix 
consists of 1,000 locations in memory, each containing an 8 bit 
character pointer. 

The location of this video matrix in memory is defined by VM 1 3-VM 1 
in register 24 ($19), which are used as the four most significant bytes 
of the video matrix address. The lower order 10 bits are provided by 
an internal counter, in VC3-VC0, which steps through each of the 1000 
character locations. 

The 6566 has some 14 address outputs, as follows: 
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Character Pointer Address 

A13 A12 All AlO A09 A08 AOO 



VM13 VM12 VMll VMIO VC9 VC8 VCO 

The 8 bit character pointer permits up to 256 character definitions to 
be available simultaneously. In other words, under normal operating 
conditions, we are capable of displaying up to 256 different characters 
on the screen at once. 

Each character consists of an 8 by 8 bit dot matrix, and is stored in 
the character base as eight consecutive bytes. 

The location of this character base is defined by CB13-CB10, which 
are also installed in register 24. These are used for the three most 
significant bits of the character base address. 

The 1 1 lower order addresses are formed by the 8 bit character pointer 
from the video matrix (D7-D0), which selects a particular character, 
and a 3 bit raster counter (RC2-RC0), which selects one of the eight 
character bytes. 

The resulting characters are formatted onto the screen in 40 columns 
of 25 rows: a total of 1000 screen locations, as we saw above. 

In addition to this 8 bit character pointer, there is a 4 bit colour nibble 
(simply another word for half a byte, you may recall) associated with 
each video matrix location. The video matrix must be 12 bits wide. 

The colour nibble defines one of the 16 available character colours for 
each character. 

The character data address table looks like this: 
Character Data Address 



A13 A12 All AID A09 A03 A02 AOl AOO 



CB13 CB12 CBll D7 D6 ... DO RC2 RCl RCO 
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Standard character mode 



In standard character mode, the 8 sequential bytes from the character 
base are displayed directly on the 8 lines in each character space. 

A '0' bit causes the background colour £0 (from register 33, or $21 ) 
to be displayed, while the colour selected by the colour nibble, known 
as the foreground colour, is displayed for a bit that is set to a '1'. These 
colour codes have already been given in chapter two, and are simply 
the ordinary 16 colours available to us. 

In other words, each character has a unique colour determined by the 
4 bit colour nibble, and all characters must share the same background 
colour, i.e. the screen background colour. 

One of our earlier programs illustrated this, when displaying a collection 
of randomly coloured spaces on the screen. 

To illustrate the point further, it would be possible to change the reverse 
space printed to be a reverse letter of the alphabet, or indeed any one 
of the characters available. 

Function Character Colour Displayed 
Bit 



Background Background Colour £0 

Foreground 1 Colour chosen by colour nibble 



Multi-colour character mode 

Multi-colour mode gives us a much greater flexibility in choosing our 
displays, as it allows up to four different colours to be printed within 
each character space, but our character resolution is now halved in 
the horizontal direction. 

The multi-colour mode is selected by setting the MCM bit in register 
23, or $16, to a '1 ', which causes all the dot data stored in the character 
base to be interpreted totally differently. 

If the most significant bit of the colour nibble is a '0', then the character 
will be displayed as described above, in standard character mode. 
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When it is set to a '0', it is displayed in multi-colour mode as shown 
below. 

Thus the two different modes can be displayed on the same screen, 
but it is not possible to use any of the colours other than the first 8. 



Since we now require two bits to specify the colour of a dot, each 
character space is reduced to being 4 pixels by 8 pixels, with each 
horizontal 'pixel' being the equivalent of two pixels in ordinary mode, 
in order to allow us to select the colours as indicated. Still, we can 
now have two background and two foreground colours per character 
space. 



Extended colour mode 

Extended colour mode allows the selection of background colours for 
each character space within the normal 8 pixel by 8 pixel resolution. 
Thus greater flexibility of colour choice is given than in standard 
character mode, without the loss of resolution given by multi-colour 
mode. 

However, extended colour mode and multi-colour mode cannot be 
used at the same time. 

This mode is selected by setting the ECM bit of register 17, or $11, 
to a '1'. The character dot data is displayed exactly as in standard 
character mode, in that the foreground colour as determined by the 
colour nibble is displayed for every character bit set to a '1', but the 
two most significant bits of the character pointer are used to select 
the background colour for each character space as follows: 



Function 



Character Colour Displayed 
Bit 



Background 
Background 
Foreground 
Foreground 



00 
01 
10 
11 



Background Colour £0 
Background Colour £1 
Background Colour £2 
Colour from 3 LSB of 
colour nibble 
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Character Pointer Background Colour Displayed 
for each nibble 

MSB Pair 



00 
01 
10 
11 



Background Colour £0 
Background Colour £1 
Background Colour £2 
Background Colour £3 



Since the two most significant bits of the character pointers are used 
for colour definition, this means that only 64 characters can be 
displayed on the screen in extended colour mode. As the 6566 forces 
CB10 and CB9 to be a '0' regardless of anything else going on, we 
are limited still further to the first 64 characters. However, these can 
be either the first 64 characters of ROM, or of your own character set. 
We'll be looking at this in the next chapter. 

This mode allows us to choose any one of 16 foreground colours, and 
one of four background colours, for each character space. 



Bit map mode 

The most powerful of all the graphical modes on the 64. It is also the 
slowest to operate, and is usually handled from machine code rather 
than the much slower Basic. 

Needless to say, in this mode everything is handled totally dn , ^ntly 
from all the other modes, and it works in the following way: 

In bit map mode the 6566 fetches data from an 8000 byte block of 
memory, and displays it on the screen in a one-to-one ratio. In other 
words, each bit of those 8000 bytes relates exactly to a bit as it appears 
on the screen. 

This gives us a maximum resolution of 320 pixels by 200 pixels, or 64000 
pixels, or bits. Each bit being one-eighth of a byte, this gives us our 
(64000/8) 8000 bytes of memory required. 

Bit map mode is selected by setting the BMM bit in register 17, or 
$11, to a 'V. 

The video matrix is still accessed as before, but the data contained 
there is no longer interpreted as character pointers, but instead it is 
read as colour data. 
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The video matrix counter is tlien also used as an address to fetch the 
dot data for display fronn the 8000 byte display base. 

The display base address is made up like this: 

A13 A12 All ... A03 A02 AOl AGO 



CB13 VC9 VC8 . . . VCO RC2 RCl RCO 

Where VC denotes the video matrix counter output, RC the 3 bit raster 
line counter, and CB comes from register 24. The video counter goes 
through the same 40 locations for eight raster lines, going on to the 
next 40 locations every 8 lines, while the raster counter is incremented 
for each horizontal line on the screen (otherwise known as a raster line). 

Because of this, each block of 8 sequential memory locations in the 
8000 byte base is formatted as an 8 pixel by 8 pixel block on the screen. 
The first byte is the top line, the second byte the second line, and so on. 



Standard bit map mode 

When standard bit map mode is initialised, the colour information 
comes only from the data stored in the video matrix, and anything 
that the colour nibble tries to do is totally ignored. 

The 8 bits are divided into two 4 bit nibbles, which allows two colours 
to be independently selected for each 8 pixel by 8 pixel block. When 
a bit in the display memory is set to a '0' the colour of the output dot 
is set by the least significant, or lower, nibble, and when it is set to 
a '1' the colour is selected by the most significant bit, or highest nibble. 
Thus: 

Bit Colour Displayed 



Lower nibble of video matrix pointer 

1 Higher nibble of video matrix pointer 



Multi-colour bit map mode 

Multi-colour bit map mode is selected by setting the MCM bit in register 
22, or $16, to a '1', in addition to setting the BMM bit in register 17. 

This mode uses the same 8000 byte block of memory to display its 
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characters, but this time the data is handled in a totally different way 
(as you might expect!), like this: 

Bit Pair Display Colour 

00 Background Colour £0-register 33 

01 Higher nibble of video matrix pointer 

10 Lower nibble of video matrix pointer 

11 Video matrix colour nibble. 

This time we are using the colour nibble, along with the video matrix 
pointer and the background colour £0 from register 33. Thus we can 
have three separately chosen colours in each 8 pixel by 8 pixel block, 
along with one standard background colour. 

However, due to the bit pairing to get the colour information, each 
horizontal pixel is the equivalent of two pixels in ordinary mode, and 
so our maximum resolution is halved to become 160 dots by 200. 

Sprites 

We've already seen how sprites can be displayed and formed, now 
let's get a little more technical and go into further detail on how sprites 
behave in the way that they do. 



Sprites on and off 

Each sprite can be turned on or off independently of any other sprites 
that happen to be around, and they are turned on by selecting the 
corresponding enable bit in register 21 to be a '1'. If this bit is set to 
be '0', nothing will happen to that particular sprite. 

The SID chip memory map was explained in some detail in the chapter 
on sprites and high resolution graphics. 

It sounds wonderful to talk about disabling a sprite - kicking sand in 
its face - but as we've seen this is simply done by setting the appropriate 
bit in register 21 to a zero. 



Positioning a sprite 

Each sprite is positioned according to X and Y co-ordinates, on a 320 
by 200 scale respectively. However, not all these locations can be seen 
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on the screen, which allows you smooth scrolling off the screen in 
both horizontal and vertical directions. 

For practical purposes, the display should be confined to a vertical 
scale of 50 to 200, and a horizontal scale of 25 to 315. 

The number put into the X and Y co-ordinate registers determines 
where the sprite will appear on the screen. We gave the memory map 
for these registers in the earlier part of this chapter. 

One other register must be considered, register 16, or $10. This must 
be set to a '1' if the X position exceeds 255 (and X re-set to zero), 
and back to a '0' (and X to 255) again when going the other way. This 
allows a sprite to travel across the full width of the screen without 
coming to a sudden halt somewhere near the right-hand side. 



Colouring a sprite 

Each sprite has a separate 4 bit register to determine its colour, and 
as usual there are two different colour modes, known as standard and 
multi-colour. 

In standard mode, a '0' bit of sprite data allows the background colour 
to show through, and this is referred to as being 'transparent'. 

If the bit is set to a '1', then the sprite colour is shown as dictated 
by the corresponding sprite colour register: see earlier memory map. 

But each sprite, regardless of its neighbours, can be selected as a multi- 
colour sprite by setting the MCS bits in the sprite multi-colour register 
29, or $1C. 

When this bit is set to a '1', the sprite will be displayed as a multi- 
colour sprite, with the colour coming in as follows: 

Bit Pair Colour Displayed 



00 Transparent 

01 Sprite Multi-colour £0-register 37 

10 Sprite Colour-registers 39 through 46 

11 Sprite Multi-colour £1 -register 38 

As we now require two bits to define the colour of each sprite, the 
resolution of that sprite is halved in the horizontal direction, as each 
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'pixel' becomes the equivalent of two pixels in standard mode. 

It does give us control over three colours per sprite, plus one 
background colour, but the multi-colours must be the same for all 
sprites in multi-colour mode. 



Magnifying sprites 

Sprites can be doubled in size either horizontally or vertically, or both, 
and reduced back to normal size again. 

Two registers control sprite expansion. If the relevant sprite bit is set 
to a '1', the sprite is expanded; if set to a '0' it goes back to normal 
again. 

Register Function 



29 ($1 D) Expand horizontally 
23 ($17) Expand vertically. 

Despite expanding the sprite, we don't get any increase in resolution, 
as the same 24 pixel by 21 pixel grid is displayed, but expanded in the 
appropriate direction. 



Priority amongst sprites 

This determines which sprite has priority over what, i.e. if sprites pass 
over each other, or over anything else that happens to be on the screen, 
register 27 ($1B) determines what will be displayed. 

This can be individually selected for each sprite, by setting the 
appropriate bit in register 21 to be a '0' or a '1 ', and functions like this: 

Register Function 
Bit 



Non-transparent part of sprite 
will be displayed 

1 Non-transparent part displayed only 
instead of background colour £0 or 
multi-colour bit pair 01 

Sprites also have a fixed priority amongst themselves, in that sprite 
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number will always be displayed over sprite number 1 , 1 over sprite 
number 2, and so on. 

Sprite to sprite priority is always sorted out before sprite to data-on- 
screen priority. 



Sprites colliding 

It is possible to detect two types of sprite collision, sprite to sprite and 
sprite to anything else on the screen. 

A collision between two sprites is said to occur when two non- 
transparent parts of each sprite want to occupy the same screen area. 

When this happens, the appropriate bits in the sprite collision register, 
register 30 or $1E, are set to '1' for both sprites. 

As more sprites collide, the appropriate bits in register 30 continue 
to be set, until a read of this collision register, when all the bits are 
set back to '0' again. 

Sprites can even collide off-screen, so watch out! 

The second type of collision is between a sprite and anything else on 
the screen. 

When this occurs the appropriate bit for the sprite concerned is set 
in register 31, or $1F, to '1', although as before the collision of 
transparent data does not generate a setting of this register. 

The display data from a 01 multi-colour bit pair also does not generate 
a setting to '1' of this register. 

Again, collisions can take place off-screen, and the register is cleared 
back to zeros again as soon as it is read. 



Accessing sprites in memory 

We've touched on this one already, but for the sake of complete clarity 
here we go again. 

The data for each sprite is stored in 63 consecutive memory locations. 
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and some of these we've talked about earlier. 

Naturally we have to tell the 6566 where the data for each sprite is 
stored, and this is done using memory locations 2040 to 2047, the 8 
bytes immediately after the screen RAM, and each byte refers to one 
sprite. 

Thus location 2040 refers to sprite 0, 2041 to sprite 1, and so on, up 
to 2047 which refers to sprite 7. 

If a value of 13 is stored in location 2042, it means that the data for 
sprite 2 is to be found at the 63 memory locations starting at the 13th 
block of sprite data, which happens to be memory location 832. 

The eight-bit sprite pointer, together with the six bits from the sprite 
byte counter (to address 63 bytes), define the entire 14-bit address 
field, like this: 

A13 A12 All AlO A09 AOS AO? A06 AOS ... ADO 



SP7 BP6 SP5 SP4 SP3 SP2 SPl SPO SC5 . . . SCO 

Where SP are the sprite pointer bits, and the SCs are the internally 
generated sprite counter bits. The sprite pointers are read from the 
video matrix at the end of every raster line. 

When the Y position register of a sprite matches the current raster 
line count, then the sprite data is fetched, with internal counters 
stepping through the 63 bytes of data, displaying 3 bytes on each raster 
line. 



Other screen features 

As well as all these graphical and sprite features, the 6566 is capable 
of much more, as we shall see. 



Screen blanking 

The display can be blanked off by setting the DEN bit of register 17, 
or $11, to a zero. POKE 53265,11 achieves this. 

When we blank the display area, the entire screen is filled with the 
exterior colour as set in register 32, or $20. This allows us to perform 
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full processor utilisation of the system bus, or in other words access 
things like cassette decks, Vic disk drives, and so on. 

Sprites, however, unless specifically disabled, continue to shine 
through. 

To get the screen back, the DEN bit must be set to a '1' again, and 
POKE 53265,27 achieves this. 



Selecting rows and columns 

As we've seen, we normally get a 40 column by 25 row screen, but 
for some purposes it would be desirable to change this. For instance, 
to enable smooth scrolling of the screen. 

This is achieved by altering the RSEL bit in register 17, or $11, and 
the CSEL bit in register 22, or $16, and works like this: 

RSEL Number of Rows CSEL Number of Column s 

24 38 

1 25 1 40 

This effectively moves the border over on to the screen area, but leaves 
the characters previously displayed there still intact, but no longer 
visible. 

As an example, POKE 53265,19, loses the top half of the top line of 
the screen, and the bottom half of the bottom line of the screen. POKE 
53265,27 gets us back to normal again. 



Scrolling the screen 

The entire screen display can be scrolled either horizontally or vertically, 
one pixel at a time, up to a maximum of one character space. Using 
this in conjunction with the screen window (screen display minus 
border) facilities mentioned previously, enables us to produce smooth 
scrolling of the display area, while updating the system memory only 
when a new character row or column is required. 

This method is also used to centre a fixed display within the screen 
window. 
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Bits 



Register Function 



X2,X1,X0 22 ($16) Horizontal Position 
Y2,Y1,Y0 17 ($11) Vertical Position 



Light pens 

The light pen input stores the current screen position in two registers, 
labelled LPX and LPY. 

The X position is stored in register 19, or $13, and will contain the 8 
most significant bytes of the X position at the time of detection. 

As the X position is defined by a 512 (9 bit) state counter, resolution 
to two pixels is provided. 

The Y position, stored in register 20, or $14, allows us a single raster 
resolution on the screen display, or down to one pixel. 

This light pen input may be triggered only once per frame, or screen 
scan, and subsequent triggers with that frame will have no effect. 



Raster register 

It's always tempting to make comments about people wearing red, 
green and yellow hats, but instead this is a dual function register. 

Reading the raster register 18, or $12, returns the lower 8 bits of the 
current raster position. The higher 8 bits are stored in register 17, or $1 1 . 

The visible display window is from raster 51 to raster 251 , or $033 to 
$OFB. 

A write to the raster bits, including RC3, is stored for use in an internal 
raster compare, and when the current raster matches this written value, 
the raster interrupt latch is set. 



Interrupt registers 

The interrupt register shows the status of the four sources of interrupt, 
which are: 
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Latch Enable When Set 
Bit Bit 



IRST ERST Raster Count = Stored Raster Count 
ISDC ESDC Sprite collide with data on screen 
ISSC ESSC Sprite collide with another sprite 
ILP ELP Negative transition of LP input 
(once per frame) 

IRQ 

In order for the interrupt request to set the IRQ output to '0', the 
corresponding interrupt enable bit in register 26, or $1 A, must be set 
to a 'V. 

Again, once an interrupt latch has been set, it may only be cleared 
by writing a '1' to the appropriate latch in the interrupt register. 



Dynamic screen refresh 

Five 8 bit row addresses are refreshed every raster line, and this 
guarantees a maximum delay of 2.02 ms between the refresh of any 
single row address in a 129 address system, or 3.66 ms in a 256 address 
system. 



Reset 

The reset bit RES in register 22, or $16, is not used in the normal mode 
of operation. 

Thus it is normally set low, and setting it high suspends the entire 
operation of the 6566! 

To be used with caution. 



Theory of operation 

The 6566 interacts with everything else on board the 64 in a special way. 

The 6510 requires access to and from the system buses only during 
that portion of its cycle known as phase 2, when the clock is set high. 

The 6566 takes advantage of this system, and therefore only accesses 
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memory during phase 1, or when the clock is set low. 

Therefore, such operations as getting character data, or refreshing the 
screen, or anything else that the 6566 handles are totally transparent 
to the 6510, and thus don't reduce the speed of processor operation. 
The 6566 itself provides the various interface control signals necessary 
to perform and maintain this kind of bus sharing. 

The 6566 also provides the signal to enable address control, used to 
disable the 6510 address bus drivers (I nobly resist all comments here!), 
thus allowing the 6566 to access the address bus for itself. Address 
Enable Control is active (set low) during phase 1 of the clock cycle, 
so that again the 6510 is not affected in its speed of operation. 

However, because of all this all memory accesses must be completed 
in at most half a cycle, or 500ns, as the 6566 provides a 1MHz clock. 

This could become a problem, since some of the operations of the 
6566 require much longer (relatively) than a mere half a cycle. In 
particular, sprite generation requires that the 6566 also grabs a slice 
of the action during phase 2, which means that the 6510 must itself 
be disabled somehow. 

This is achieved with the BA, or Bus Active, signal, which is connected 
to the ROY input of the 6510. 

This is normally set high, but can be set low to indicate that the 6566 
wants to do some processing during phase 2. In all, the 6566 has three 
phase 2 times after BA has been set low in order to complete all its 
data access. 

On the fourth phase 2 after BA being set low, the Address Enable 
Control remains low until the 6566 has finished. 

More manipulation must take place during the fetching of the character 
pointers, which takes some 40 consecutive phase 2 accesses to fetch 
the video matrix pointers. 

Sprites, as we've said, also require more than one phase 2 access, 
and in fact require four accesses in total, as follows: 
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Phase Data 



Condition 



1 Sprite Pointer Every Raster Scan 

2 Sprite Byte 1 Each raster while sprite 

is displayed. 

1 Sprite Byte 2 As above 

2 Sprite Byte 3 As above 

Thus sprite pointers are fetched every other phase 1 at the end of every 
raster line. 

All this bus control is handled internally by the 6566 itself, thank 
goodness. 



Memory interfacing 

The 6566 has thirteen fully decoded addresses for direct connection 
to the system address bus, and can be accessed in the same way as 
any other peripheral device. 

The following 6510 interface signals are provided: 

Data Bus DB7 - DBO 

These 8 data bus pins combine to form the bi-directional data port, 
which can only be accessed while the Address Enable Control and 
Phase are high, and chip select is low. 

Chip Select CS 

This is brought low to enable access to the device registers in 
conjunction with the address and Read Write pins. It is only recognised 
as being low when Address Enable Control and Phase are high. 

Read Write R/W 

This is used to determine the direction of data transfer on the data 
bus, in conjunction with CS. When R/W is high, data is transferred 
from the selected register to the data bus output, and when it is low 
data presented on the data pins is loaded into the chosen register. 

Address Bus A05-A00 

These lower six pins are bi-directional, and are used as inputs during 
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a processor read or write to the video device. The data on the address 
inputs selects the register for read or write as defined in the register 
map. 

Clocl< Out PHO 

The clocl< output, or phase 0, is the 1 IVlHz clock used as the 6510 
processor phase in. All system bus activity is referenced to this clock, 
the frequency of which is generated by dividing the 8M Hz video input 
clock by 8. 

Interrupts IRQ 

The interrupt output is brought low when an enabled source of interrupt 
occurs within the device. It requires an external pull-up register. 



Video interface 

The output signal from the 6566 consists of two signals, which need 
to be mixed together. 

SYNC/LUM contains all the video data, and requires an external pull- 
up of 500 ohms. 

The Colour output, containing all the colour information for screen 
display, is terminated with 1,000 ohms to ground. 

These two signals are then mixed before being fed through to your 
television set. 



Conclusion 

That concludes our look at the capabilities of the 6566 video interface 
chip. Now that we know how it all works, let's start putting our 
knowledge into action, and take a look at the art of producing 
user-defined graphics. 
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5 

User-Defined 
Graphics 

Introduction 

With the Commodore 64 you are given a full complement of characters: 
numeric characters, alphabetic characters, and a whole host of other 
graphical symbols. 

Using these it is possible to create some very sophisticated displays 
indeed, and remembering that we also have control over colour and 
whether or not to print out a character in reverse field, in many 
instances it is only our imagination that lets us down when it comes 
to producing exciting screen output. 

As if that wasn't enough, we can also display in a variety of different 
graphical modes, as was seen at the end of the last chapter. Whether 
we want to go into ordinary high resolution mode, multi-colour mode 
or extended colour mode, the user is given a great deal of choice on 
how to display images on the screen. 

Finally, of course, we also have sprites. Again we are are presented 
with a choice of different modes when displaying these, and again 
we can use ordinary sprites or multi-colour sprites. Alas, there is no 
such thing as an extended colour sprite! 

But despite all that there are still times when we wish for a few more 
different characters from the keyboard. The existing graphics set, albeit 
a most useful one, is not without its limitations. Most of the characters 
are straight lines, and the few that do depart from this standard image 
are of little use except when writing card playing games. 

There are times when we are using the existing character set, and we 
want to add a couple of characters to it. For example. Commodore 
provide us with a left arrow key and an up arrow key, but not a down 
one or one pointing to the right. It would be nice, on occasions, to 
be able to display such characters. 
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How do we do this ? The answer of course is that we define our own. 



How characters are made up 

We l<now that all the characters available directly fronn the keyboard 
are made up of an eight pixel by eight pixel grid, with suitable bits 
turned on or off depending on what the character is going to look like. 

For example, the letter A is made up in the following manner: 



ABCDEFGH 

■ . . ** ... 

. . »»#» . . 
. ♦» . . **. 
. #««»**. 
. . «*. 
. #*. . »». 
. #* . . *» . 



And the '@' symbol looks something like this: 

ABCDEFGH 
. . . 
. #*. . «*. 
. *« . *♦* . 
. 

. #» 

. . . *. 
. . ♦*«*. . 



Don't worry about all the letters on the top of each grid, we'll come 
to those later. 

Each character, then, is made up on an eight by eight pixel grid, like 
the two shown above. You'll note that the alphabetic characters don't 
extend to the edges of the grid on either the left hand side or the right, 
nor do they reach the bottom of the grid. 

This is true for all the alphabetic characters, and it is done to prevent 
them merging together as you type. Imagine trying to unravel a 
program listing where all the characters merged into each other. 
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On the other hand, the graphical characters (on the whole) do extend 
to the edges of the grid. This is so that they can be joined up, and 
thus used to create continuous lines, pictures, and so on. 

What we're going to do is to remove some of the existing characters 
from the Commodore 64's character set, and replace them with some 
of our own. 

Which keys can we choose? 

Re-defining l<eys 

The answer, perhaps not surprisingly, is that we can choose any l<eys 
that we feel like. 

There are limitations, of course, but by and large we are not too 
restricted when it comes to re-defining characters. However, most of 
the time we would not want to re-define the entire keyboard, but would 
like to keep some of the existing keys. For example, you might like 
to keep all the alphabetic ones, and the numeric ones, and get rid of 
everything else. 

Whichever you choose is entirely up to you, but first you need to know 
where everything is stored in the computer's memory. 

Normally, unless we tell it otherwise, the 64 will get its character 
information (that is, the information on how each character is made 
up), from the character generator ROM, which sits in memory from 
locations 53248 to 57344, a total of 4K of memory divided up into 8 
blocks of 512 bytes each. 

Each 512 bytes, remembering that every character takes up 8 bytes 
of storage space, thus stores information on 64 characters. 

In order, these 8 blocks are laid out as follows: 

Block Address Description 

Decimal Hex 

53248 $DO(X) Upper case characters 

53760 $D200 Graphics characters 
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54272 $D400 

54784 $D600 

1 55296 $D800 
1 55808 $DAOO 
1 56320 $DCOO 

1 56832 $DEOO 



Reverse case upper case 
characters 

Reverse case graphics 
characters 

Lower case characters 

Upper case & graphics 

Reverse case lower case 
characters 

Reverse upper case and 
graphics characters 



Some of those numbers may seem a little bit familiar, but don't worry. 
In the 64, nothing ever occupies the same place at the same time, it 
all gets switched around to cope with everything. 



Choosing characters 

To decide which set of characters we're looking at at any one time, 
we obviously have to point the Vic chip in the right direction. 

This is relatively easy for the user to do, but gives the 64 a few problems 
(thankfully, they're transparent to the user), since the Vic chip which 
controls all the graphics is only capable of looking at 16K at a time. 

Being an 8 bit chip it should be capable of addressing the full 64K all 
at the same time, but Commodore decided that this was not to be, 
and instead of the usual number of 16 address lines coming from the 
chip, they give us just 14. Thus we come down from the giddy heights 
of 64K to a mere 16K. 

To select which block of 16K we want to look at, we have to alter 
CIA£2 (one of the input/output lines). 

First of all, we need to know where the four 16K blocks of memory 
sit within the 64. 
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Blocks of memory 

To swop from one block to snother, we need a statement like: 
POKE56578,PEEK(56578)OR3 

This sets bits and 1 of port A of the second 6526 chip to zero. 
Then, we need to: 

POKE56576, ( PEEK(56576) AN D252)OR A 

which actually allows us to swop from block to block. 

A takes on the following values: 

A = - looking at block 0, starting at location 
49152, or $COOO-$FFFF 

A = 1 - looking at block 1, starting at location 
32768, or $8000-$BFFF 

A = 2 - looking at block 2, starting at location 
16384, or $4000-$7FFF 

A=3 • looking at block 3, starting at location 
or $0000-$3FFF 

At power up we are always addressitig block 0. If the Vic chip Is looking 
at either block or block 3, then the character ROM Is automatically 
switched into the Vic chip's memory space, starting at location $1000. 

If you want to move tiie location of the character ROM around yourself, 
you'll need to: 

POKE 53272,(PEEK(53272)AND240)ORA 

where A, reasonably enough, determines where the character ROM 
is going to sit. If A has a value of 0, it will start at memory location 
zero, a value of 2 will put it at location 2048 onwards, and so on In 
steps of 2048. 

Well, that's been a lot of theory, let's start putting it into practice! 
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Altering character sets 

You'll recall how characters are stored on the 8 by 8 pixel grid: 



ABCDEFGH 
. . *#** . . 
. «*. . »«. 
. *». 

. *♦. -»--)(■♦. 
. ♦* 

. **. . . *. 
. . »**♦. . 



As is usual with bits and bytes, we're going to give a series of values 
to the letters A to H on the grid, and these are the usual values of 
128,64,32,16,8,4,2 and 1. 

For each row of the character '@', in order to get the correct data 
to be stored in the computer, we just need to add up the relevant 
numbers for all the bits that are turned on in that row. 

So, as far as the '@' symbol is concerned, the first row of bits gives 
us a value of 32 plus 16 plus 8 plus 4, or a total of 60. Continuing on 
down the character, the seventh row has the same value, and the final 
row of course has a value of 0. 

We're going to use exactly the same principle when re-defining our 
own characters, and just as an example we'll define a little man. 

Taking our usual grid: 
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ABCDEFGH 
128 64 32 16 a 4 2 1 

****»» 

»»*«** 

****** 

»***«« 

♦*«***. 

«')('«'N'««'. 

»«««««*««♦«* 

*«*****»««•)(•■» 

************ 

...«««... . . . *** , . . 

*** ****** *** 

*** *** 

*** -K-N-N-N'** *** 

■ B ■ ■ ■ ■ ^ ■ • • • ■ « « ■ ■ ■ 

♦** *** 

»** *** 

**♦ ««» 

*«* *** 

♦** ♦«» 

*** *** 

*** *** 

*♦* »«« 



In order to define our character, we now have to work out the value 
of all the bits that are turned on and off, in order to POKE the relevant 
number into the computer's memory. 

We get this value by looking at each row in turn, and seeing which 
bits are turned on and which are turned off. For the first row, you'll 
see that bits A,B and C are turned off, bits D and E are turned on, 
and bits F, G and H are turned off. 

Earlier on we gave each of the bits A to H a numerical value, and the 
values for D and E were 16 and 8 respectively. Adding these up gives 
us a value of 24, and this is the first value in our soon-to-be formatted 
data statement for this new character. 

The next line is exactly the same, but the third line now turns on bits 
C and F as well as bits and E, while the others remain off. Again 
adding the values up gives us a total of 32 plus 16 plus 8 plus 4, or 
60. This is the third entry in our data statement. 
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Taking each line in turn, we arrive at the complete list of values: 
24,24,60,90,153,36,36,36. We will use these figures to instruct the 
computer which bits to turn on and which to turn off for our character. 
This same character, incidentally, appears in the final program in this 
chapter. 

So, having designed everything on paper, and worked out all the 
necessary values for each character, it's back to the 64 again. 

Just as an example, we're going to keep all the upper case alphabetic 
and numeric characters, as well as the standard graphic set, and re- 
define all the reverse image characters. Thus we'll hang on to the first 
128 symbols in the character set, and re-define the last 128 symbols. 



Bringing in the ROIV! 

Since the character ROM is just that, Read Only Memory, there is no 
way that we could ordinarily alter it. However, this doesn't prevent 
us from bringing all this ROM into RAM, and doing what we like with it. 

As we've seen, the upper case and graphics characters are normally 
stored in locations 53248 to 54271 . Unfortunately, because of the way 
the 64 was designed, this puts it between the input/output ROM sitting 
on top of it, and the ordinary RAM sitting underneath it. So our first 
task is to remove the input/output ROM, and this is done with a simple 
POKE: 

POKE 1,51 

However, due to the constantly refreshed interrupts, we must do a 
little more than this before we can copy in any of the character ROM, 
since the interrupts will, quite reasonably, expect all that input/output 
still to be in place. When it finds that it isn't, the machine would simply 
crash and we'd have to start again. So, to switch off all the interrupts 
we need to issue the following command: 

POKE 56333,127 

This must be done before removing the input/output. 

Now we are in a position where we can copy the first 1 ,024 bytes of 
character ROM, since this is where the characters that we want to 
keep are situated, into the computer's RAM, and this is achieved by: 
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FORI = 0101023 

POKE 53248+ l,PEEK(53248 + 1) 

NEXTI 



Storing characters 

Having got everything into RAM, the locations beyond 54271 are ready 
to store our own characters. Why 54271? Well, we've just copied in 
128 characters, each of which occupy 8 bytes in memory, 8 times 128 
is 1024, and since we started at location 53248 we must move another 
1024 bytes on, which takes us to memory location 54272 where we 
can start storing our own characters. 

This is done quite simply by reading in data, and then storing it at the 
appropriate locations, like this: 

FORI = 0TO7 
READA 

POKE 54272 + 1, A 
NEXT 



DATA 24,24,60,90,153,36,36,36 

Obviously on most occasions you would wish to define more than one 
character, and so there would be more data statements, and the FOR 
... NEXT loop would also have to be adjusted accordingly. 

Having read all the data in, we have to restore the input/ output to 
normal again, switch all the interrupts back on, and tell the Vic chip 
where its character ROM has gone to (or in this case, character RAMI). 

This is achieved with the following set of statements: 

POKE 1,55 
POKE 56333,129 
POKE 648,196 
POKE 56576,4 
POKE 53272,21 



103 



The complete program 

And that gives us our complete program. Putting it all together, you 
might end up with something like: 



10 POKE 56333,127 
20 POKE 1,51 
30 F0RI=0T01023 

40 POKE 5324S+ 1 , PEEK < 53248+ 1 ) 

50 NEXT I 

60 FQRI=0T07 

70 READA 

80 POKE 54272+ I, A 

90 NEXT 

100 POKE 1 ,55 

110 POKE 56333,129 

120 POKE 648, 196 

130 POKE 56576.4 

140 POKE 53272,21 

1000 DATA 24.24,60,90.153,36,36,36 



The character that you have just created can now be displayed in a 
variety of ways. Most simply, if you switch reverse field on and press 
the '@' key, instead of a reverse field '@' you will now get a little man. 
By defining another character to be a little man with his arms raised 
and then swopping from one character to another, as has been done 
in the final program in this chapter, you would get an animated effect. 

The other way to see your character would be to POKE it onto the 
screen. For instance, to display the man in the top left-hand corner 
of the screen, you would: 

POKE 50176,128 

Always remembering to alter the colour as well, with a POKE 55296,1 
or whatever. 

POKE 5017671 Yes, there are a number of side effects to re-defining 
characters in this way. 

First of all, the memory reserved for the screen now starts at location 
50176, although it still of course occupies 1000 bytes, one for each 
screen location. Colour memory, as always, remains unaffected by 
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all this, and still starts at location 55296. 

Our character base, as we've seen, now starts at location 53248. This 
leaves enough room to re-define 128 characters and store them away, 
while still keeping all the normal characters. Attempting to go into lower 
case produces some very strange results indeed! 



What happens to sprites? 

Finally, we now have to be a bit more careful when designing and 
displaying sprites. Normally we would find out where the sprite data 
was stored by referring to memory locations 2040 to 2047, the eight 
after the memory set aside for the screen RAM. Well, just as the screen 
RAM has moved up to start at location 50176, so the sprite data 
pointers have gone with it, and they now live at locations 51192 to 
51199. 

To find out where to store your sprite data, use the formula: 
49012 + 74*A 

where A is the number of the data block you wish to point the sprite 
to. For example, if you want to store sprite at data block 13, you'll 
have to POKE 51192,13 and put the data at location 49012 + 74*13, 
or 49974. 

As a bonus for having all these new aggravations, sprites have also 
grown in sizel They now need 72 bytes of data for each one instead 
of the usual 63, since they now occupy a 24 pixel by 24 pixel grid and 
not the more usual 24 by 21 . 

Finally, don't try to use run/stop and restore if you want to break into 
a program. Some very odd things happen. 

Other graphics modes 

User-defined graphics, or indeed the existing character set, can be 
displayed in a number of ways. Earlier, we just talked about POKEing 
characters onto the screen, or getting the user-defined characters by 
going into reverse field mode. 

However, there are another two display modes that we haven't yet 
looked at, apart from high resolution which comes in the next chapter. 
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so we'll round off this one by looking at multi-colour mode and 
extended colour mode. 



Multi-colour mode 

Multi-colour mode can be used with either high resolution standard 
mode graphics, or ordinary standard graphics, and it is a way of getting 
more than just two colours (foreground and background) into each 
character square. 

Normally, when displaying characters on the screen, they can take 
on one of two colours. Either the screen background colour, or the 
character colour reserved for that screen position. 

Thus we can display many colours on the screen at once, but our 
control of colour within each character space is limited. 

Multi-colour mode allows us to get around this, but with a lowering 
of the maximum resolution available on the screen. We are limited to 
a maximum screen resolution of 160 pixels by 200 pixels, or in other 
words half the normal horizontal resolution. 

This is more than compensated for by the additional display facilities 
gained, and high-res multi-colour mode can produce some staggering 
results: we'll be seeing this in chapter six. 

For now we'll stick to ordinary characters, and look at the registers 
that have to be altered to get us into this mode. 

To turn on multi-colour mode, you'll need to address memory location 
53270 thus: 

POKE 53270, PEEK(53270)OR 16 

This turns on bit 4, and leaves the rest as they are. To turn it off again, 
POKE 53270, PEEK(53270) AN D239 

This turns off bit 4, and again leaves the rest of the register as it was 
before we started. Multi-colour mode is actually set on or off for each 
character space on the screen, so that it is possible to mix multi-colour 
and hi-res graphics on the same screen, if required. 

This is done by choosing your colours carefully. If the number in colour 
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memory for that space is less than 8, then that space is produced in 
ordinary hi-res mode. If the number lies between 8 and 15 then we're 
into multi-colour mode for that particular space. This is simply altering 
bit 3 of the colour memory (beginning at decimal 55296, and never 
moving, unlike just about everything else on the 64). 

The colours that can be used in multi-colour mode are dictated as 
follows: 

Each dot in a multi-colour space (8 pixels by 8 pixels, but remembering 
that each horizontal pixel is the equivalent of two normal ones) can 
take on one of four colours: 

The screen colour, from background register number 
The colour in background register number 1 
The colour in background register number 2 
The character colour 

These memory locations are respectively: 

53281 ($D021) : bit pair 00 

53282 ($D022) : bit pair 01 

53283 ($D023) : bit pair 10 

Colour specified by colour memory, starting at 55296: bit pair 1 1 

It is the bit pairing that determines what colour will be displayed in 
each pixel, and it operates in the same way as multi-colour does with 
sprites. 

Take, for example, our old friend the character '@', made up in normal 
high-res graphics like this: 



00111100 
01100110 
OllOlllO 
01101110 
01 100000 
01100010 
00111110 

oooooooo 



In normal mode, wherever there's a 1 the pixel is turned on (character 
colour), and where there's a zero it's turned off (screen background 
colour). 
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In multi-colour mode we use the bits in pairs (hence the halving of 
horizontal resolution) like this: 

C'O 11 11 00 
01 10 01 10 

i 1 11 10 

1 10 11 1 o 
01 10 00 00 
01 10 00 iO 
00 11 11 10 
00 00 00 00 

By reference to the above table we can see which colour each one 
part of the symbol '@' will come out as. 

By bearing all this in mind, and utilising some of the character definition 
techniques as described earlier, some quite stunning displays can be 
made without resorting to sprites, or indeed high resolution displays. 

To give you just a short programming example, which prints a number 
of different coloured characters onto the screen: 

10 POKE 53270,PEEK(53270>0R16 : REM TURN ON MULTI- 
COLOUR 

20 POKE 53282,1 : REM WHITE 

30 POKE 53283,6 : REM BLUE 

40 POKE 53281,5 : REM GREEN 

50 PRINT "ABCDEFGHIJ" 

60 FORI=OT09:POKE55296+I ,2:NEXT 

Truly horrendous, but at least it illustrates the variety of colours that 
can be displayed. 

To finish with multi-colour mode (for the time being), it is possible 
to change instantly the colour of every dot drawn in a particular colour. 
Thus everything drawn in the screen and/or background colours can 
be changed immediately. 

All you have to alter is either the first or the second background colour. 

Finally, a quick way of getting into multi-colour mode is to turn it on 
in the usual way with the POKE 53270 etc., and then change the colour 
of everything using the logo key. Thus, logo and 9 will give you a brown 
colour, or multi-colour white. 
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Extended background colour mode 

This is a furtiier extension to multi-colour mode, and gives you the 
ability to choose both background and foreground colours for each 
character. You lose a few colours, like all the ones normally accessed 
with the logo key, but you do get a much greater choice of 
combinations. 

For example, you could display a white character with a blue 
background on a black screen, or something like that, which gives 
you the ability to produce some rather interesting three dimensional 
effects. 

It is invoked with the following command: 
POKE 53265,PEEK(53265)OR64 

This turns on bit 6, and leaves the rest as they were. To turn it off again: 
POKE 53265,PEEK(53265)AND191 

This turns bit 6 off, and again leaves all the other bits unaltered. As 
usual, there is a trade-off for this, and we are now restricted to using 
just the first 64 characters of character ROM, or of course the first 
64 characters of your own user defined character set. 

This is because we need to know which background colour to display 
everything in, and this is determined by two bits of the character code, 
like this : 

For to 63: select background colour with 

location 53281 
For 64 to 127: select background colour with 

location 53282 
For 128 to 191: select background colour with 

location 53283 
For 192 to 255: select background colour with 

location 53284 

Choosing screen values greater than 63 will simply reflect back onto 
the screen the character corresponding to itself in the first 64 screen 
codes, but in a different background colour. 
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Thus POKEing a 72 to the screen will still produce a letter H on the 
screen, but in a different background colour than if you'd just POKEd 
an 8 onto the screen. 
For instance: 

5 POKE 53265, PEEK (53265) DR64 
10 PRINT" CCLR3" 

15 FDRI=0T03!P0KE 532S1 + I , INT (RND ( . 5) ♦15) : ^4EXTI 
25 FDRI=0T0255 
30 POKE 102 4+ I , I 
40 NEXTI 
50 GOTO 10 

You may have to play about with screen background colours, 
depending on what you already had up there! 

Character generator 

Now that you've been doing it all the hard way for so long, here's a 
program that will take the trouble out of re-defining characters, by 
doing all the hard work for you. All that's required from you is the 
imagination! 

When you run the program at first, don't be alarmed if nothing seems 
to be happening other than the screen clearing, a few words appearing 
on the screen, and then absolutely nothing else. This is merely due 
to the program copying the character ROIVl into locations 12288 
upwards, and as you have seen with the small program given earlier, 
this does take some time. 

When the program does re-appear, you'll be given a grid of characters 
on the left-hand side of the screen, and a list of options on the right 
to either create a new character of your own, edit an existing one, 
or simply quit the program. 

Quit simply takes you out of the program and changes the screen and 
border colours to what they were at power on. Either of the other two 
options will bring a new display onto the screen. 

This consists of an eight by eight grid of dots, with blobs where we 
would like the pixels to be turned on (if indeed any are turned on at 
all). The normal cursor controls move your little cursor about the 
screen, and you can either add or remove dots as you wish. Updating 
the masterpiece when you're satisfied with it will give you the data 
for each row of pixels for the new character. 
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You can either just jot these down, or if you wish the program will 
tur'n them into data statements when you press the appropriate key. 

The data thus produced can be used with the program given earlier 
provided that you remove the first number in the data statement. This 
is just used by this program to keep track of where all the characters 
are stored in RAM, and need not be a part of any of your own 
programs. 

Program notes 

Line 130 : sets screen and border colours. 

Line 140 : screen messages. 

Lines 150-205 : copy character ROM into RAM. 

Lines 210-260 : add new line to Basic program so user doesn't have 
to sit through a long wait again! 

Lines 280-310 : set starting parameters. 

Lines 330-340 : set up functions. 

Line 350 :' print on-screen instructions. 

Lines 360-460 : print screen display when editing. 

Lines 470-770 : await and act upon user input. 

Lines 810-840 : ditto when starting up. 

Lines 1000-1170 : set up on-screen instructions and initial display. 
Lines 1210-1300 : display on-screen editing options. 
Lines 1520-1550 : exit from program. 

Lines 1600-1710 : handle update option i.e. display pixel data on screen. 
Lines 1810-1910 : selected edit option, display grid and character data. 
Lines 2010-2160 : produce data statennents from pixel data. 
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1 30 POKE 532B0 , 9 : POKE 5328 1 , 

140 PRINT"[CLR,YEL] * CHARACTER DESIGNER * 

••: PRINT" C3CD3PLEASE HANB ON ! " 
150 POKE 828,0 
160 RUN 170 
170 CS= 12288 

175 POKE 56334,PEEK (56334) AND254: POKE 1 , PEEK ( 1 ) ANI> 
251 

180 FOR I=CB TO CS+2047 
190 POKE I , PEEK (53248+ I -CS) 
200 NEXT I 

205 POKE 1 ,PEEK(l>OR4:POKE 56334 , PEEK (56334) OR 1 

210 PRINT" CCLR35 RUN 280" 

220 PR I NT "RUN" 

230 POKE 198,3 

240 POKE 631 , 19 

250 POKE 632,13 

260 POKE 633,13 

270 END 

280 S=1024:CL=40 
290 CS= 12288 

300 CR=0:LN=30000+PEEK(828> 

310 P=24:BG=1:BR=1 

320 POKE 53280,9: POKE 53281,0 

330 DEFFNA(XX)=S+R«2»CL+2*C:REM SCREEN POKE LOCATI 
ON 

340 DEFFNB(XX)=8»R+C:REM SCREEN POKE VALUE FOR CHA 
R 

350 BOTO lOOO 

360 PRINT" CCLR,YELJ":GOSUB 1200 
370 PRINT" CHOME]": :FOR 1=0 TO 7 

380 PRINT" ": PRINT 

390 NEXT I:F=0 

400 PRINT" t HOME] ":R=0:C=0 

410 Z=FNA(0) 

420 IF F=0 THEN 460 

430 IF Z=ZL THEN 450 

440 POKE ZL, IL: ZL=Z: IL=PEEK(ZL) 

450 POKE Z+54272,6 

460 POKE Z+54272,6 

470 BET A*: IF A*="" THEN 470 

480 POKE Z +54272, 7 

490 REM 

500 REM CURSOR CONTROL OPTIONS 
505 REM 

510 IF A*="D" THEN 1500 

520 IF A*="CCR]" AND C=7 THEN 0=0: GOTO 410 

530 IF A*="CCR3" THEN C=C+l!GOTO 410 

540 IF A*="CCL3" AND C=0 THEN C=7:GOTO 410 

550 IF A*="CCL3" THEN C=C-l:GOTO 410 

560 IF A*="CCD3" AND R=7 THEN R=0:GOTa 410 

570 IF A*="CCD3" THEN R=R+1:G0T0 410 
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580 IF A*="CCU3" AND R=0 THEN R=7:BOTO 410 
590 IF A*="CCU3" THEN R=R-1:B0T0 410 
600 IF A*="CHOME3" THEN 400 
610 IF F=l THEN 800 
695 REM 

700 REM DEFINE NEW CHARACTER OPTIONS 
705 REM 

710 IF A*="+" THEN POKE Z,81:60T0 410 
720 IF A*=" " THEN POKE Z,4ci:60T0 410 
730 IF A*="=" THEN 1600 
740 IF A«="CCLR]" THEN 370 
750 IF A*="R" THEN 1000 
760 IF A*="B" THEN 2000 
770 BOTO 410 
795 REM 

800 REM REVIEW CHARACTER SET OPTIONS 

805 REM 

810 CR=FNB(0> 

820 IF A*="N" THEN POKE 53272,21 : BOTO 360 
830 IF A*="E" THEN POKE 53272,21 : F-0: SOTO IBOO 
840 BOTO 410 
995 REM 

1000 REM DISPLAY CHARACTER SET OPTIONS 
1005 REM 

1010 POKE 53272, (PEEK (53272) AND240)+12sR-4!C-0 
102O ZL=FNA(0) : IL=32 
1030 F=l: PRINT" CCLR3"; 

1040 PRINT" CYEL]« A B C D E F B"! PRINT 

1050 PRINT"H I J K L M N O": PRINT 

1060 PRINT"P Q R S T U V W"lPRINT 

1070 PRINT" X Y Z C \ 3 _"s PRINT 

1080 PRINT" ! "CHR*<34)" « * X & '"sPRINT 

1090 PRINT" ( )»+,-. /"I PRINT 

1100 PRINT"0 12 3 4 5 6 7": PRINT 

1110 PRINT"8 9 : ? < = > ?"s PRINT 

1120 PRINT" [HOMES "SPC (22) "OPTIONS"! PRINT 

1130 PRINTSPC(22) "CRVS3NCOFF3 NEW CHAR"iPRINT 

1140 PRINTSPC(22) "CRVS3ECOFF3 EDIT CHAR":PRINT 

1150 PRINTSPC(22) "CRVS3QCOFF3 QUIT" 

1160 BC>PEEK (55296) 

1170 ROTn 41 n 

1 1 95 REM 

1200 REM EDIT OPTIONS 
1205 REM 

1210 PR I NT " C HOME , YEL 3 " SPC ( 25 > " OPT I ONS " s PR I NT 
1220 PRINT 

1230 PRINTSPC(P> "CRVS3+COFF3 ADD DOT" s PRINT 
1240 PRINTSPC(P) "CF.VS3-COFF3 ERASE"!PRINT 
1250 PRINTSPC(P) "CRVS3=CDFF3 UPDATE" : PRINT 
1260 PRINTSPC(P) "CRVS3RCaFF3 REVIEW" : PRINT 
1270 PRINTSPC(P) "CRVS3QtOFF3 QUIT" s PRINT 
1280 PRINTSPC(P) "CRVS3BCOFF3 ADD DATA"«PR1NT 
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1290 PRINTSPC(P+1 ) " CCU3STATEMENT" 

1300 RETURN 

1495 REM 

1500 REM QUIT 

1505 REM 

1510 REM 

1520 POKE 53272,21 

1 530 POKE 5328 1 , 6 : POKE 53280 . 1 4 

1540 PRINT" CCLR:" 

1550 END 

1595 REM 

1600 REM UPDATE 

1605 REM 

1610 PRINT" CHOMEJ": 

1620 X=CB+8*CR 

1630 FOR R=0 TO 7:SM=0 

1640 FOR C=0 TO 7:D=7-C 

1 650 SM=SM-2-^D«- ( PEEK ( FNA < ) ) =8 1 ) 

1660 NEXT C 

1670 POKE X+R,SM 

1680 PRINTSPC(17) ;SM:PRINT 

1690 NEXT R:R=0:C=0 

1700 GOTO 410 

1795 REM 

1800 REM EDIT CHAR 
1805 REM 

1810 PRINT" tCLR]" 
1820 X=CS+8»CR 

1830 FOR R=0 TO 7: Y=PEEK ( X+R) 
1840 FOR TO 7:2=FNA<0) 

1850 D=46:Y=Y*2 

1860 IF Y>255 THEN Q=Bl:Y=Y-256 

1870 POKE Z,Q:POKE Z +54272, 7 

1880 NEXT C,R 

1B90 R=0:C=0 

1900 GOSUB 1200 

1910 GOTO 410 

1995 REM 

2000 REM ADD DATA STATEMENTS 

2005 REM 

2010 X=CS+a*CR 

2020 PRINT" CCLR, 8CD 3" 

2030 PRINTLN: "DATA"; 

2040 PRINTRIGHT*(STR*<X) ,LEN(STR*(X) )-l) : 
2050 FOR I = X TI1 X+7 
2060 PRINT",": 

2070 PR I NTR I GHT* ( STR* ( PEEK ( I ) ) , LEN ( STR* ( PEEK ( I ) > ) - 
1) : 

2080 NEXT I 

2090 PRINT: PR I NT "RUN C HOME 3" 
2100 POKE 828, PEEK (828) +1 
2110 POKE 198,9 
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2120 FOR 1-0 TO 8 
2130 POKE I^t-b^l.lS 
2140 NEXT I 
2140 END 



Notes 

Thtrs shouldn't b§ any problems with this listing, since there are no 
graphic characters printed to the screen at all, everything is simply 
POKEd. However, there is one character which you'll have to watch 
out for, and yes, you guessed the strange symbol in line 1650 is 
indeed meant to be en up-arrow! 



Movemaze 

Originally written by Jim Butterfleld for one of the ancient Commodore 
PETs, this program has been revised and updated to take into account 
some of the faeilities of the Commodore 64, and in particular to use 
a couple of user defined characters. 

The game Is basically a straightforward maze game, but with one 
Important difference. In this one, the walls move as you walk along 
through Itl You can barge through a wall If you want, but this adds 
ten points to your score (normally it just goes up by one point for every 
move that you make), and since the Idea is to reach the exit In as few 
moves as possible this is not a good Idea. 

You are shown moving through the maze as a little man, and your 
friend can be seen guiding you to the exit as he Jumps up and down 
and waves his arms about. Both of these characters are, of course, 
user-defined graphics. 



Program notes 

Lines 90-92 : set up screen and border colour as well as sound 
parameters. 

Lines 100-176 : on-screen Instructions, and GOSUB to set up 
user-defined graphics. 

Lines 200-290 : set up maze on screen. 

Lines 300-330 : setting up parameters. 
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Lines 340-364 : put characters on screen and await input. 

Lines 370-379 : accept or reject input, convert accordingly, and play 
a note. 

Lines 380-390 : checking input. 
Lines 400-430 : update progress. 

Line 440 : if there isn't a space in front of you there could be trouble! 

Lines 450-460 : okay, update position and return 

Line 470 : if there isn't a shifted space (exit) in front then you are in 
trouble! 

Lines 480-510 : home and dry! 

Lines 520-760 : more housekeeping, plus move a piece of the maze 
around. 

Lines 770-920 : oops! crashed through a wall. 
Lines 20000-20130 : character ROM routine. 
Lines 30000-30001 : data for new characters. 

90 POKE 53281,0: POKE 53280 , 8: PRINT" CYEL] " 

92 S=54272:PaKE S+24,15:P0KE S+5,9:P0KE S+6,108:P0 

KE S+4,33 

100 REM MOVING MAZE DEC/80 JIM BUTTERFIELD 
102 REM MODIFIED JAN/84 FOR CBM64 PETE 6ERRARD 
110 PRINT" CCLR,3CR3MOVING MAZE 
120 PRINT"CCD3 JIM BUTTERFIELD 

130 PRINT"C2CD]THE MAZE CHANGES AS YOU MOVE THROUG 
H IT TO TRY AND RESCUE YOUR "; 
132 PRINT"LITTLE FRIEND BY THE EXIT." 
140 PRINT"C2CD3 .. YOU MAY PUSH THROUGH A WALL BUT 
IT 

150 PR INT" WILL COST YOU 10 MOVEMENT POINTS. 
160 PRINT" [CD3 MOVE WITH KEYS: 

170 PRINT" (UP) 

171 PRINT" I 

172 PRINT" (LEFT) A D (RIGHT) 

173 PRINT" M 

174 PRINT" (DOWN) 

176 PRINT" t2CDl JUST HANG ON A BIT!":GOSUB 20000:PR 
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INT"CCLR,CD,YEL3 

180 PR I NT "CCD 3 PRESS ANY KEY WHEN READY.C6RN]" 
190 BETX«i IFX*=""G0TQ190 

200 POKES+24 ,0!PRINT"CRVS,SHIFTN,CLR3"iPRINT FO 

RJ=0T090: IFPEEK (50176+J ) =32THENNEXTJ 

210 L=J:L1=(L-10)/2:L*-" "+CHR« ( 1 1 1 ) : R«»CHR« ( 165> i 

M*=CHR* < 1 63 ) I FORJ= 1 T09 

220 PR I NTL* ; : FORK= 1 TOL-8 : PR I NTH* ; 

230 NEXTK: PRINT" CCL3";R* 

240 IFJ=9eDT0280 

250 PRINT" "CHR*(165);:F0RK<=lT0L-8iPRINT" ";!NEXTK 
: PRINT" CCL] " ; CHR* ( 165) 

260 L*=" "+CHR*(165) |R«>CHR«(165) sM*-" " 
270 NEXTJ 

280 PRINT" CCU,SP]"CHR»( 163) ; : F0RK»1T0L-8| PRINTCHR* 
(163) ; tNEXTKi PRINT" CCL3"; " " 

290 F0RV=0T06: F0RH=0T0L1-1 : HX-V+H: IFINT (H5C/2) -HX/2 
Q0Ta320 

300 60SUBS20: VA.==rmD ( 1 ) *2 

310 GOSUB530 

320 NEXTHsNEXTV 

330 M=0 ! V=0 s H=- 1 : 6aSUBS20 

340 C=X+l-L:POKEC,129:POKE 55296+C-30176,7 

350 V=6:H»Ll:GaSUB520:POKEX-L,96 

355 POKE 50176+634, 129: POKE 55296+634,1 

360 POKE S+24,0:SETX*: IFX*=""B0T0360 

362 POKE 50176+634, 129-BB:BB»1-BB 

364 POKE S+4,33jP0KE S+24,1S 

370 X=ASC<X«)-64: IFX<OORX>14G0TO360 

372 IFX=13THENX=1:P0KE S+l,4iPaKE S,73:60T0380 

374 IFX=lTHENX'-3tP0KE 8+l,S:P0KE S, 103iB0T0380 

376 IFX=9THENX"7:P0KE S+l,6:POKE S, lOSi G0T0380 

378 IFX=4THENX=5sP0KE S+1,7:P0KE 8,53:00X0380 

379 GOTO 360 

380 VX=X/3:HX=X-V>i»3 

390 V%= 1 - V7. : HX=Hy.- 1 : I FV%*HX< >060T0360 

400 M=M+liPRINT"CH0ME,YEL3"jM; "CCL3 MOVESCGRN3" 

410 IFV7.+HX=0GQT0460 

420 Ml=C+L»V/i+H% 

430 M2=C+2*(L*V7.+HX) 

440 I FPEEK (MIX >32G0T0470 

450 POKEC , 32 : C=M2 : POKEC , 1 29 1 POKE 55296+C-50 1 76 , 7 
460 G0SUB720:G0T0360 

470 I FPEEK (MIX >96THENG0SUB770 : 60T0360 

480 POKEC , 32 : C=M2 : POKEC , 1 29 : POKE 55296+C-50 1 76 , 7 

490 PRINT": HOME, YEL 3 HOME IN" ; M; : PRINT"nOVES ! ANOTH 

ER GAME (Y OR N)CGRN3» 

492 GETZ«: IFZ*="Y"THEN200 

494 I F Z*= " N " THENPR I NT " C CLR , CD 3 BYE " : FOR I -0T024 : POKE 

S+I,0: NEXT: END 
496 GOTO 492 
510 PRINT" CCLR3": END 
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520 X= (V+2) *L»2+ (H+2) •2+50 175; RETURN 
530 IFV"/.>060T0670 
540 B0T0590 

550 F0RJ=X-L»2TQX+LSTEPL:K=PEEK(J) !Z*32i IFK=10ieDT 
□580 

560 Z=99: IFK=79GDTQ580 

570 GOTO 360 

580 PQKEJ,Z:NEXTJ 

590 F0RJ=X-2T0X+1:K=PEEK(J) : Z=99: IFK=32GDT0620 
600 Z=79: IFK=101G0T0620 
610 GOTO 360 

620 POKE J, Z: NEXT J: RETURN 

630 F0RJ=X-2T0X+1:K=PEEK(J) : Z=32: IFK=99G0T0660 
640 Z=101 : IFK=79GaTn660 
650 GOTO 360 

660 P0KEJ,Z:NEXTJ:GQTa670 

670 F0RJ=X-L»2TDX+LSTEPL 

680 K=PEEK(J) : Z=101: IFK=32G0T0710 

690 Z=79: IFK.=99GQT0710 

700 GOTO 360 

710 POKE J, Z: NEXT J: RETURN 

720 V=INT(RND(1)*7) : H= INT (RND ( 1 ) «L1 ) :H7.=V+H: IFINT( 

H7./2) =H-/./2G0T0720 

730 G0SUB520:K=PEEK<X) 

740 IFK=101G0T0550 

750 IFK=99G0TQ630 

760 GOTO 360 

770 M=M+10:Q=Ml-50175-4»L-4 

772 POKE S+4,129 

780 V2=INT(Q/L) :H2=Q-V2»L 

790 V=INT(V2/2) :H=INT(H2/2> 

800 IFV=V2/260T0840 

810 IFH=H2/2G0T0870 

820 GOTO 360 

830 V=V1:H=H1:G0T0730 

840 H= ( H2+ 1 ) /2 : G0SUB9 1 

850 IFETHENH=(H2-1) /2 

860 G0T0a90 

870 V=<V2+1) /2:G0SUB910 
880 IFETHENV=(V2-l)/2 

890 I FV >=OANDV< 7ANDH >=0ANDH< L 1 G0T0730 
900 RETURN 
910 H7.=V+H 

920 E= ( INT (H7./2) =H7./2) : RETURN 

20000 POKE 56333,127 

20010 POKE 1,51 

20030 FORX=OTai023 

20040 POKE 53248+ X, PEEK ( 53248+ X> 

20050 NEXT X 

20060 F0RX=0T015 

20070 READA:POKE 54272+X,A 

20080 NEXTX 
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20090 PQKE 1,55 
20100 POKE 56333,129 
20110 POKE 648,196 
20120 POKE 56576,4 
20130 POKE 53272,21 

30000 DATA 1 53 , 90 , 60 , 24 , 24 , 36 , 36 , 36 

3000 1 DATA24 , 24 , 60 , 90 , 1 53 , 36 , 36 , 36 

30002 RETURN 



6 

High Resolution Grapliics 

Introduction 

High resolution plotting is arguably the most powerful of all the 
graphical features available on the Commodore 64, but it is perhaps 
not invoked as often as you might imagine, owing to the prodigious 
demands on the computer's memory. 

To fill a full screen with a high resolution display requires some 8K 
of memory to handle it, since we are now controlling every individual 
pixel on the screen (at least, in standard high resolution! Multi-colour, 
as usual, halves our horizontal resolution). Since the screen has 1,000 
character locations on it, and each one of those consists of 64 pixels 
(8 pixels square), we have to look after 64,000 pixels, or 8000 bytes. 
A lot of memory to control. 

However, the rewards justify the efforts involved, even in Basic, 
although we will be giving a few routines in machine code towards 
the end of this chapter to speed things up a little. 

Even in standard high resolution mode, where each character space 
is limited to just two different colours (foreground and the usual screen 
background), some marvellous displays can be very easily generated. 
Multi-colour mode gives us a more generous four colours per character 
space, but each pixel in this mode becomes equivalent in size to two 
pixels in the ordinary mode, so we lose a little on resolution, but 
nevertheless gain an awful lot on the type of displays that we can 
achieve. 



Different modes 

With ordinary graphical displays we also had a third choice when it 
came to displaying characters, namely extended colour mode. 

However, in high resolution plotting we have no such luxuries, and 
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we are left with just the two modes already mentioned. 

Still, this is more than generous by the standards set by most other 
home computers, and it is up to 64 users to make the most of it: the 
hardware code is there for you to use, all we've got to do is provide 
the software! 



Getting started 

There are two very important registers when it comes to manipulating 
everything in high resolution mode, and these are registers 53265 and 
53270. 

If you glance at the video chip memory map given in chapter four, 
you'll see that these correspond to locations V + 17 and V + 22, and 
that, as well as invoking high resolution, they can also be used to move 
the screen about, set windows, and so on. We'll be coming to those 
latter topics later on, but for now we'll stick with straightforward 
graphics. 

As we've seen, it requires some 8K of memory to display anything 
in high resolution on the screen. This does not mean that the amount 
of memory that can be stored on the screen has increased to 8K, nor 
that the screen memory itself has been increased. It has, and always 
will have, just 1 K set aside for it. Rather, each screen location remains 
as one byte, but to generate the image displayed in it requires 8 bytes. 

So what we're doing in this chapter is basically transferring an 8K 
section of your computer's memory directly onto the screen, and this 
will determine whether each bit on the screen is to be turned on or 
off, and in what colour it is to be displayed. 

As the only two Basic commands which allow us to transfer memory 
from one place and store it in another are PEEK and POKE, you begin 
to get some idea of why all this is so slow. Later on there are some 
routines for doing this kind of thing in machine code, but we'll save 
those for a little while. For now, on with: 

Standard bit mapping 

As with normal character displays on the screen, standard mode gives 
you fewer colours, but greater resolution: the full 320 by 200, in fact, 
but only two colours per 8 pixel by 8 pixel square. High resolution and 
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normal displays actually relate quite closely to each other, but moving 
from one to the other is not very straightforward. Still, two of the 
routines at the end of this section do allow you to swop from one type 
of screen to another virtually instantaneously. 

Bit map mode is turned on with the following command: 

POKE 53265, PEEK(53265) OR32 

This turns on bit 5 of this register and leaves the rest unaffected. We 
turn off bit map mode by issuing the following command: 

POKE 53265, PEEK(53265) AN D223 

This time we're turning bit 5 off, and once again every other bit remains 
unaffected. This is much to be preferred to the usual method of POKE 
FRED,BILL, which can sometimes have quite devastating effects! 

Obviously we're going to have to get our bit map information from 
somewhere, and for this we'll have to clear out a section of memory. 
To start with, we'll wipe out memory location 8192 onwards, so to 
clear out our 8K we must: 

FORI = 8192TO 8192 + 7999:POKEI,0:NEXT 

which is not the quickest of processes. 

Now we've got to select a few colours, and the colour displayed on 
the screen in this mode is determined not by the colour memory, but 
by the actual content of each screen memory location. The value 
POKEd into a screen location produces the background colour from 
the lower 4 bits (or lower nibble) of that value, and the pixel colour 
from the upper four bits (or upper nibble). Thus each screen character 
space can have two colours in it, and throughout the screen we can 
use any of the 16 colours. 

It might be easier, instead of thinking of upper nibbles and lower 
nibbles, to picture the byte split up into two separate halves. This: 

Bit No. 1 2 3 4 5 6 7 
Value 1 2 4 8 16 32 64 128 

is how we normally would look at it. Now, we have something like: 
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Bit No. 1 2 3 4 5 6 7 
Nibble Lower Upper 
Value 1 2 4 8 1 2 4 8 



Now the upper half can take a value from to 16, and so can the lower 
half. 



Screen printing 

Before printing anything on the screen, we need to tell the screen where 
our bit map is stored, and this is done with: 

POKE 53272, PEEK(53272) 0R8 

which puts the bit map at locations 8192 through to 16191 by setting 
bit 3 to be on. Setting one of the other bits to be on would move the 
bit map locations correspondingly, although you must remember to 
wipe out the correct part of memory as well, otherwise ... disaster. 

Also, if we don't tell the screen where to go, some very odd things 
happen! For instance, POKE 53265,59 without having previously set 
location 53272 will show the top half of the screen containing the bit 
map from the first 4096 memory locations, and the bottom half from 
the character generator area. You can actually watch it all change up 
at the top, as page zero continues to monitor what's happening. 

It makes an interesting experiment, if nothing else, and as you hammer 
away at the keys trying to restore the machine to order, page zero 
happily carries on its work, oblivious. 

Assuming we've done everything correctly, try entering the following 
line: 

FORI =819210851 1STEP8:POKEI,255:NEXTI 

This will now produce a hi-res line across the top of the screen, given 
that we're still looking at locations 8192 upwards for our hi-res area. 

This is due to the way in which the screen data is interpreted. The 
8000 memory locations are not viewed as a continuous set of data. 
Instead, we have to take the first row of pixels from each of the first 
40 bytes to form the top row of our high resolution screen, the second 
row of pixels forms the second row of the screen and so on, until on 
the 41st byte it all starts all over again! 
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This can be confusing at first, but there are ways in which we can 
calculate the position of any pixel on the screen. 

Or again: 

FORI = 1024TO2023:POKEI,4:NEXTI 
will produce a purple hi-res screen. 

To discover whether any particular pixel is to be on or off, we'll need 
to find it on the screen, and the following fornnula will show the location 
of any pixel on the screen, assuming we want it to be at X location 
horizontally, and Y location vertically, with our origin at the top left: 

R= INT(Y/8) : find the row 

C= INT(X/8) : find the column position 

L= Y AND 7 : the line of that character position 

B= 7-(XAND7) : the bit of that byte 

Putting them all together gives us the byte where any pixel with the 
co-ordinates X,Y is situated: 

BYTE = 8192 + R*320 + C*8 + L 

and to turn any X,Y co-ordinate bit on in that 8 by 8 space we: 

POKE BYTE, PEEK( BYTE) OR (2 to the power B) 

We'll use some of the theory that we've learnt above to get the 64 
to draw an interesting plot on the screen. 



5 POKE 53272, PEEK (53272) 0R8 

7 POKE 53265, PEEK (53265) 0R32 

10 F0RI=8192J08192+7999:P0KEI ,0!NEXT 

12 F0RI=1024T02023:P0KEI , 1:NEXT 

20 DEFFNA<Y)=90*EXP(-Y«Y/1500) 

30 F0RA=1T02 

40 B= 1 60 : K=60 : FORX=- 1 OOTOO ! L=-60: H=5* I NT ( SQR ( 1 OOOO 
-X»X) /5) 

50 F0RZ=HT0-HSTEP-5: Y=25+FNA(SQR(X*X+Z»Z> )-.6«Z 
60 IFY>LTHENL=Y 

62 C=INT( (S+X)/8) !R=INT( (K+Y) /8> : L= <K+Y) AND7 

64 BYTE=8192+R«320+C«a+L 

66 B=7-( (G+X)AND7) 

68 POKE BYTE, PEEK (BYTE) OR2->B 
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70 Q=INT( (G-X> /B) :S=INT( (K+Y) /S) :T=(K+Y)AND7 

71 BYTE=8192+S*320+Q*8+T 

72 D=7-( (G-X) AND7) 

73 POKE BYTE,PEEK(BYTE)aR2 D 
75 NEXTZ,X:G0SUB1690 

80 DEFFNA (Y)=3B«(SIN(Y/24)+.48*SIN< 3*Y / 24 ) ) +20 : NEX 
T:END 



Now, I'm not saying that this is the fastest program in the world {you've 
time to make a cup of tea, smoke a cigarette, make a cup of tea, smoke 
... etc.), but IT WORKS! 

To plot your own functions in hi-res, or indeed just plotting a couple 
of individual points, it is simply a matter of working out the X and Y 
co-ordinates on a scale of to 320 for X and to 200 for Y, 
remembering that the origin is the top left hand corner of the screen, 
and then simply using the formula given earlier to get the display 
happening. 

By using functions as we have here, life has been made a little easier. 
You're welcome to try any function you can think of and see what 
happens. 

Multi-colour bit mapping 

This is similar to multi-colour mode in ordinary graphics, as we are 
again allowed to have up to four colours per 8 pixel by 8 pixel grid, 
but we have to suffer a halving of the horizontal resolution available, 
down to 160 by 200 pixels. 

As usual, this is because each horizontal pixel becomes the equivalent 
of two ordinary pixels, in order to allow us to define these four colours. 

Again, we are using an 8K section of memory, and our four colours 
are chosen from: 

Screen background colour, register 53281 . 

Character screen position, where the upper four bits give us one colour, 

the lower four another. 
Colour memory. 

To turn multi-colour bit mapping on, we must: 

POKE 53265, PEEK(53265)OR32: POKE 53270,PEEK(53270)OR16 
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and to turn it off again: 

POKE 53265,PEEK(53265)AND223:POKE 53270,PEEK(53270)AND239 

Referring back to the section on ordinary multi-colour mode in chapter 
five, the bit pairs are now read as follows: 

00 takes on the screen background colour. 

01 comes from the upper four bits of screen memory. 

10 from the lower four bits. 

1 1 from the colour memory. 

Thus using multi-colour mode graphics in high resolution is not 
markedly different from using it in standard graphics modes. 

Moving the screen about 

With all these capabilities at your disposal, it is not surprising to learn 
that graphically the Commodore 64 can do some rather amazing things. 

It is possible, for instance, to move the screen either horizontally or 
vertically in either direction, just one pixel at a time. 

This kind of high resolution movement makes a lot of things possible, 
such as spreadsheet programs, word processors and the like, and it 
is achieved in the following manner. 

The 64 normally displays a screen that is 40 columns across and 25 
rows down, but in order to scroll in either direction we can change 
this into a 38 by 24 display, in order to give the screen information 
somewhere to go to, and come from. 

To go into a 38 column screen display, we must enter: 

POKE 53270, PEEK(53270) AN D247 

and to get back again we must: 

POKE 53270, PEEK(53270)OR8 

To get to a 24 row screen display, we must enter: 

POKE 53265, PEEK{53265)AND 247 



127 



and to go back to 25 rows again: 
POKE 53265, PEEK(53265)OR8 

While all this is going on, the screen border will expand and shrink 
again in size accordingly, in order to accommodate the screen 
manipulation. This does not mean that we are losing any characters 
simply because the border is now covering them. They're still there, 
waiting to be read (or rather, PEEKed) by the computer, in order to 
decide what to do with them. 

To scroll horizontally, we must then: 

POKE 53270,(PEEK(53270)AND248) + X 

where X is the screen position from to 7. To scroll vertically: 

POKE 53265,(PEEK(53265)AND248) + Y 

where Y is the Y position of the screen from to 7. 

To see how this works in practice, let's look at a few practical examples. 

Values in the range 24 to 31 actually control the vertical position of 
the characters on the screen, so: 

FOR J = 24T031 : POKE53265, J : N EXTJ 

will set the screen moving downwards, leaving an empty space near 
the top. POKE53265,27 to get back to normal. 

To illustrate 24 column mode, type POKE 53265,19, which cuts the 
top and bottom lines in half, and this is the basis of all these scrolling 
operations. 

Switch to a 24 character screen, move everything up slowly, then jump 
back to a 25 character screen again, and so on. 

Finally, to turn the screen off completely, type POKE 53265,11. 

POKEing 53265 with 27 always sets everything back to normal again. 

There's a lot of material to follow in all of that, and the only way to 
understand it all is just to play around, taking notes of everything you 
do and the results that follow. 
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You can't harm your computer, and Run/Stop and Restore will usually 
get you out of trouble without too much bother. 

To finish off with, and to leave you with a game before we start taking 
a look at sound, playing around on the 64 one day I made (as everyone 
does) a typing error. I was trying to get the machine into lower case, 
but instead of altering reg^er 53273 to 23, 1 accidentally altered register 
53272 to 23. 

The result was so interesting that it had to be pursued, and I finally 
discovered that POKEing 53272 with a 25 gave satisfactory results. 
This will give you a 40 column by 25 row display ail right, but in a totally 
different character set. The letters manage to look very futuristic, and 
could save someone a lot of time and memory if they were trying to 
re-define the entire character set to look like this. 



The Thinker 

This is a variation on a Mastermind theme, but it also uses that 
interesting character set that I just mentioned. 

The player can choose from having to guess 4, 5 or 6 different colours, 
and whether or not colours are to be repeated. 

Guesses are entered by pressing the relevant key on the keyboard. 
For instance, if you think the first counter is black, enter your first guess 
by pressing the key marked BLK. The colours used are black, white, 
red, purple, green and blue. 

The computer will then mark your guess in the traditional way, by 
displaying a tick for a piece that is the correct colour and in the correct 
place, or a cro^ if you've got the right colour but the wrong place. 
Of course, if your guess is completely wrong in both placing and colour, 
you won't be told anything. 

If you want to give up, you can just press the left arrow key (which 
is the strange symbol in lines 128 and 2300 that for some reason my 
printer rejected), and you can also change your mind over your guess 
by pressing the delete key. 



Program notes 

Line 10 : sets colours, into lower case, and selects strange character set. 
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Line 20 : off to explain the rules. 

Line 30 : print heading. The T in The and Thinker is in italics because 
it is meant to be in lower case. This acts throughout the listing. 
When you type it in, enter it using the shift key. 

Line 40 : top of display, using shifted X char. 

Lines 45-80 : print up display of board. Please take very careful note 
of the REM statements in this part. When REM refers 
to a character, it means the little chinamen's hats 
everywhere. 

Lines 100-150 : accept only valid characters as guesses,check for delete 
and left arrow key, play musical (?!) note. 

Lines 166-168 : ready to check row? 

Lines 169-170 : update number of guesses. 

Line 190 : didn't guess it in time! 

Line 200 : response to pressing delete key. 

Lines 500-605 : check guess, and print up display accordingly. 

Lines 800-810 : you guessed right. 

Lines 1000-1080 : end of game, display answer, ask for another game. 
Lines 2000-2300 : instructions. 

Lines 2305-3020 : set up combination for player to guess. 
Lines 5000 onwards : various musical pieces. 



10 POKE 53280, 12: POKE 53281 , 15: POKE 53272 , 23: POKE 
53270 , 25 : PR I NT " C CLR , BRN 3 " ; 
20 GOSUB 2000 

30 POKE 53270, 8 : PR I NT "C CLR, GREY] »»♦ THE THINKER 
»*«[BRN]": PRINT 

40 PRINTTAB(25) ; :F0RI=1T0NC:PRINT" X" ;: NEXT: PRINT: 
REM SHIFTED X FOR GRAPHIC CHAR. 

45 PRINTTAB(25) ; :PRINT"'' ": : F0RI = 1T0NC»2-1 : PRINT" = " 
: : NEXT: PRINT" " 
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46 REM USE CBM KEY AND A FOR FIRST CHARACTER, CBM 
KEY AND S FOR THIRD CHARACTER 
50 F0RJ=1T09 

60 PRINTTAB<25) ";: F0RI=1T0NC-1 : PRINT" ■•;aNEXTI 
: PRINT""" 

62 REM USE CBM KEY AND Q FOR FIRST CHARACTER, CBM 
KEY AND U FOR LAST ONE 

65 PRINTTAB(25) """; s F0RI«1T0NC»2-1 : PRINT"-"; sNEXTi 
PR I NT"''": NEXT J 

66 REM USE CBM KEY AND Q FOR FIRST CHARACTER, CBM 
KEY AND W FOR LAST ONE 

70 PRINTTAB(25) "" ";: F0RI=1T0NC-1 : PRINT" ";!NEXTI 
: PRINT""" 

71 REM USE CBM KEY AND Q FOR FIRST CHARACTER, CBM 
KEY AND W FOR LAST ONE 

75 PRINTTAB(25> iF0RI»lT0NC»2-l!PRINT"="i tNEXTi 
PRINT""" 

76 REM USE CBM KEY AND Z FOR FIRST CHARACTER, CBM 
KEY AND X FOR LAST QUE 

80 PRINT"CHOME,2CD,BRN3 START GUESSING!" 

90 F0RP=1T010 

95 B*="" 

100 FORI-ITONC 

no BETBU*: IFQU*«""THEN 110 

1 20 FOR 1 TOLEN ( C* ) : I FSUf-M I D« ( C« , J , 1 ) THEN 1 40 
125 IF(3U«-Cm« (20) THEN200 

128 IF 8U#""_"THEN lOOOlREM CHECK FOR LEFT ARROW 
130 NEXTJ:GOTO 110 

140 POKE 1928+I*2-ZZ»80,30!P0KE 56200+I»2-ZZ»80, VA 
L<SU*)-1 

145 G«°sG«+6U* 

146 GOSUB SOOO 
ISO NEXTI 

165 REM END OF ROW 

166 BETPP»s IFPP*-CHR*(20)THEN200 

167 I FPP«-CHR« (13) THEN6U«- " 1 4 " i GOSUBSOOO : GOTOSOO i R 
EM EVALUATE 

168 GOTO 166 

169 ZZ-ZZ+1 

170 NEXT P 

180 REM END OF GUESSES 
190 GOTO lOOO 

200 FORI -ITONC: POKE 56200+I*2-ZZ*80, IStNEXTiGU*-"- 
3" s GOSUBSOOO: GOTO 93 
SOO REM CHECK THE GUESS! 
SOS Cl*=""sGl»-"":X"0:Y-0 
510 FORI'clTONC 

520 IFMIO«(G«,I,l><«MID«(B«,I,l)THENX-X+l:GOTO 530 
525 Cl«-Cl«-HiID«(B«,I,l):Gl«-61«-^MID«(8«,I,l) 
530 NEXTI 

540 IFX-NCTHENSOOiREM ALL CORRECT! 
550 FORI-LTaLEM(Cl«) 
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555 F0RL=1TDLEN(C1«) 

560 IFmD*(Gl*,I,l)=MID*(Cl*,L,l)THENY=Y+liGOTO 56 
6 

565 NEXTL 

566 C1*=LEFT*(C1*,L-1)+MID*(C1»,L+1) 

570 NEXT I 

571 IFX-OTHEN573 

572 FOR 1 = 1 TDX: POKE 1 91 4+I»2-ZZ*80, 122s POKE 56186^1 
«2-ZZ*80,0:NEXTI 

573 IFY=0THEN600 

574 FORJ=l TOY: POKE 1914+X*2+J»2-ZZ*a0,24:P0KE56186 
+X«2+J»2-ZZ»80,0:NEXTJ 

600 BU»="-12":S0SUB 5000 
605 SOTO 169 

800 PRINT"CHOME,BRN,CR]yOU GUESSED IT ! "iPRIN 
T SPRINT" THE CORRECT ANSWER IS =" 
80S GOSUB 6000 
810 GOTO 1010 

1000 PRINT"CH0ME,BRN,CR3S0RRY, YOU DIDN'T "sPRI 

NTs PRINT" GET IT. THE ANSWER IS =" 

1005 GOSUB 7000 

1010 F0RI=1T0500:NEXT 

1020 F0RI=1T0NC 

1030 POKE 1 024+ 1 04+ 1 »2, 30s POKE 55296+104+1*2 ,VAL (M 

ID*(B*,I,1))-1 

1040 NEXT 

1050 PRINT" CCD] PRESS ANY KEY FOR ": PRINT" ANOTHER 
GAME. " 

1060 GETZ*s IFZ*=""THEN 1060 
1070 POKE 53270, 25: GOSUB 2200 
1075 ZZ=0 
1080 GOTO 30 

2000 PR I NT "WELCOME TO THE THINKER, AN IMPLEMENTATIO 
NOF THE POPULAR BOARD GAME " 

2010 PRINTsPRINT"CRVS,RED]«/«Sr£«H/Wi?COFF,BRN3 FOR 
THE COMMODORE 64." 

2020 PR I NT SPRINT" IN THIS GAME, YOU'LL HAVE TO QUES 

S A COMBINATION OF 4,5 OR 6 PIECES. 

2030 PRINTS PR I NT "THE COMPUTER WILL SET UP A RANDOM 

SET OFCHARACTERS FOR YOU TO GUESS. " 
2040 PR I NT SPRINT "THESE WILL CONSIST OF THE FOLLOW I 
NQ SIX COLOURS s=": PRINT 

2050 PRINT"EBLKaBLACK CRED3/JED C PUR 3 PURPLE tGRN 
3 GREEN CBLU3BLUE CWHT] WHITE" 

2060 PRINT^' CBLK]-^ CRED]"- CPUR]-^ CG 

RNa" CBLU]-^ CWHT]"" 

2062 REM THE STRANGE MARKS IN THE LISTING REPRE5EN 
T THE UP-ARROW KEY! 

2070 PRINTsPRINT"CBRN3yOU CAN CHOOSE HOW MANY PI EC 

ES TO HAVE (4 TO 6), AND WHETHER "; 

2080 PR I NT "OR NOT COLOURS ARE REPEATED. " s GOSUB 

3000 
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2100 PRINT" CCLR,BRN]CNTER YOUR BUESS BY PRESSING T 

HE APPROP-RIATE KEY ON THE "| 

2110 PRINT-TOP ROM OF THE KEYBOARD" 

2120 PRINT-<fQR EXAMPLE, PRESS '1* IF YOU THINK THE 

NEXT SYMBOL IS BLACK, '3' IF "j 
2130 PRINT-YOU THINK IT'S RED, AND SO ON. " 
2140 PRINTi PRINT" JUST PRESS 'INST/DEL* IF YOU NANT 

TO CHANGE yOUR MIND." 
214S PRINTiPRINT"/>RESS 'AKTURN' TO ENTER YOUR GUES 
S. " 

2150 PRINT: PRINT"THE COfTUTER WILL THEN MARK YOUR 
GUESS, BY DISPLAYING i-" 

2160 PRINTtPRINT'AIGHT COLCHJR AIGHT COLOUR 

2170 PRINT-«IGHT PLACE NR0N6 «.ACE CBLKIX" 

2180 POKE 1678, 1221 P0KE55296-»-654,0 

2190 PRINTS PRINT" CBRNlymD NOTHING AT ALL IF IT'S T 
HE WRONG COLOUR. "tGOSUB 3000 

2200 PRINT" CCLR,BRN]MOU.D YOU LIKE 4, S OR 6 PIECE 

S (PRESS 4, S OR 6) ?" 

2210 GETCO#:IFCO*-""THEN 2210 

2220 IFC0*-"4"THEN NC"4iGOTO 2235 

2230 IFC0*»"5"THEN NC-SiGOTO 2255 

2240 IFCO«-"6"THEN NC>'6tGOTO 2255 

2250 GOTO 22 lO 

2255 PRINT"CBLK]"|NCi"CBRN]" 

2260 PRINTi PRINT">mO WOU.D YOU LIKE CGN.OURS REPEAT 
ED OR NOT (PRESS Y OR «) ?" 
2270 GET CR*i IFC:R*-""THEN 2270 

2280 IFCR*-"Y"THEN CR-ltPRINT"COLOURS TO BE REPEAT 
ED. "I GOTO 2300 

2290 IFCR*-"N"THEN CR»Ol PRINT"COLOLfftS NOT REPEATED 
.-sBOTO 2300 
2295 GOTO 2270 

2300 PRINTi PRINT">1ND REMEMBER, IF YOU WANT TO GIVE 

UP, JUST PRESS CBLK3' 'CBRN3" 
2305 C*-" 135672" I B*-"" 
2310 FORI-lT(mC 
2315 A»INT(RND(.5>*6-i-l> 
2320 IFCRTHEN2340 
2325 A«-MID«(C«,A,1) 

2330 F0RJ-1T0LEN(B«) i IFA«-MIO« (B«, J , 1 ) THEN2315 
2335 NEXTJ 

2338 B«»B«-«-A« i NEXT 1 1 G08UB3000 1 RETURN 

2340 B«=B«+MM)« (C«, A, 1 ) i NEXTt G08UB3(X>0i RETURN 

3000 PRINTiPRINT"CRED]/>RESS SPACE TO CONTINUE." 

3010 GETSP*i 1FSP*<>" "THEN 3010 

3020 RETURN 

5000 S=54272 

5020 POKE S+3,8 

5030 POKE S+5,24:P0KE S+6,6 

5040 POKE S+24,15 

5050 POKE S+4,65 
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5060 F0RK=1T025 

5070 POKE S+1,16+VAL(GU*):P0KE S,13 
5080 NEXTK 

5090 F0RL=0T024: POKES+L.O: NEXT 
5100 RETURN 
6000 5=54272 

6010 FQRL=0T024:P0KE S+L,0:NEXT 

6020 POKE 3+3,8 

6030 POKE S+5,12:P0KE S+6,25 

6040 POKE S+24, 15 

6050 POKE S+4,65 

6060 FORK=lT03 

6070 F0RI=1TD50:P0KES+1 , IiPOKES, I: NEXT 

6080 F0RI=50T01STEP-1:P0KES+1 , I:POKES, I:NEXT 

6085 NEXTK 

6090 F0RL=0T024: POKES+L ,0: NEXT 
6100 RETURN 
7000 3=54272 

7010 FORL=OT024:POK.E S+L,0:NEXT 

7020 POKE S+3,8 

7030 POKE S+5,32:P0KE S+6,72 

7040 POKE S+24, 15 

7050 POKE S+4,65 

7060 FORK=lTa4 

7065 F0RI=0T033: POKES+l , I : POKES, I : NEXT 

7070 FORI=33TOOSTEP-l : POKES+l , I : POKES. I : NEXT 

7085 NEXTK 

7090 FORL=OTD24: POKES+L , O: NEXT 
7100 RETURN 



Notes 

There are a lot of graphical symbols to watch out for In this game, 
in particular the left arrow key (line 2300 and line 128), the shifted letters 
(which have appeared in italics), and the setting up of the board in 
the first part of the program. 

However, if you follow all the REMs then you should be all right. 

Machine code routines 

This is a collection of little routines, to be entered using the machine 
code assembler/disassembler given at the back of the book. If you 
haven't got an assembler, and don't wish either (a) to type it in, or 
(b) to buy the accompanying cassette, then you'll have to calculate 
all the memory addresses and all the machine code instructions, and 
POKE it all in the long way. 
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The four routines given in this little potpourri will set up a hi-res screen, 
clear a hi-res screen, jump from a normal screen to a hi-res one, and 
jump back the other way again. They're all accessed using SYS calls, 
and in order they are: 



SYS 491 52, A, B sets up the screen, where A is for an ordinary high 
resolution screen, or 1 for a multi-colour one, and B is the colour 
that you're going to get for both the border and the screen 
background. 

SYS 49183 puts you into a high resolution screen. 
SYS 49241 clears a high resolution screen, and 
SYS 49357 gets you back into a normal screen. 



B* 

PC SR AC XR YR SP 
. ; 70C5 33 OO AD GO F6 



COOO 20 FD AE 
C003 20 EB B7 
C006 8A 
C007 80 20 DO 
COCA BD 21 DO 
COOD A5 14 
COOF 85 FB 
coil FO 02 
C013 A2 CO 
C015 20 59 CO 
COia 20 80 CO 
CO IB 20 A6 CO 
COIE A9 3B 
C020 80 11 DO 
C023 A9 ID 
C025 80 18 DO 
C028 A5 FB 
C02A FO 05 
C02C A9 08 
C02E 8D 16 00 
C031 A9 80 
C033 85 38 
C035 85 34 
C037 AD 02 DO 
C03A 09 03 
C03C 80 02 DO 
C03F AO OO 00 



JSR ♦AEFD 
JSR *B7EB 
TXA 



STA *D020 
STA *D021 
LDA *14 



STA *FB 



BEQ #C015 
LDX «*00 
JSR *C059 
JSR *C080 
JSR «C0A6 
LDA tt«3B 
STA *D011 
LDA tt«10 
STA *D018 
LDA *FB 



BEQ «C031 
LOA #»08 
STA «0016 
LOA *SSO 
STA *3B 



STA *34 



LDA «DD02 
ORA tt«03 
STA *D002 
LDA «DDOO 
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C042 


29 


FC 




AND 


#*FC 


C044 


09 


01 




ORA 


#$01 


C046 


8D 


OO 


DD 


STA 


*DD00 


C049 


A9 


84 




LDA 


#$84 


C04B 


8D 


88 


02 


STA 


$0288 


C04E 


A9 


4F 




LDA 


#$4F 


C050 


8D 


11 


03 


STA 


*031 1 


C053 


A9 


C5 




LDA 


«*C5 


C055 


8D 


12 


03 


STA 


*0312 


C058 


60 






RTS 




C059 


AO 


OO 




LDY 


#$00 


C05B 


A9 


40 




LDA 


#$40 


C05D 


85 


57 




STA 


$57 


C05F 


A9 


BF 




LDA 


#$BF 


C061 


85 


58 




STA 


$58 


C063 


A9 


OO 




LDA 


#$00 


C065 


91 


57 




STA 


($57) ,Y 


C067 


A5 


57 




LDA 


$57 


C069 


FO 


05 




BEQ 


$C070 


C06B 


C6 


57 




DEC 


$57 


C06D 


4C 


63 


CO 


J MP 


$C063 


C070 


C6 


58 




DEC 


$58 


C072 


A5 


58 




LDA 


$58 


C074 


C9 


9F 




CMP 


#$9F 


C076 


FO 


07 




BEQ 


$C07F 


C078 


A9 


FF 




LDA 


#$FF 


C07A 


85 


57 




STA 


$57 


C07C 


4C 


63 


CO 


J MP 


$C063 


C07F 


60 






RTS 




CQ80 


AO 


00 




LDY 


#$00 


C082 


A9 


E7 




LDA 


#$E7 


C084 


85 


57 




STA 


$57 


C086 


A9 


87 




LDA 


#$87 


C088 


85 


58 




STA 


$58 


C08A 


8A 






TXA 




C08B 


91 


57 




STA 


($57) ,Y 


COSD 


A5 


57 




LDA 


$57 


C08F 


FO 


05 




BEQ 


$C096 


C091 


C6 


57 




DEC 


$57 


C093 


4C 


8A 


CO 


J MP 


$C08A 


C096 


C6 


58 




DEC 


$58 


C09B 


A5 


58 




LDA 


$58 


C09A 


C9 


83 




CMP 


#$83 


C09C 


FO 


07 




BED 


$COA5 


C09E 


A9 


FF 




LDA 


#$FF 


COAO 


85 


57 




STA 


$57 


C0A2 


4C 


8A 


CO 


J MP 


$COSA 


C0A5 


60 






RTS 




C0A6 


AO 


OO 




LDY 


#$oo 


C0A8 


A9 


E7 




LDA 


#$E7 


COAA 


85 


57 




STA 


$57 


COAC 


A9 


DB 




LDA 


#$DB 
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UOHt 




5o 




e"F/v 
S 1 H 




COdO 


Rrr 


OO 






#»oo 


C0B2 


91 


57 




STH 




C0B4 


AS 


57 




LDA 


♦57 


COB6 


FO 


05 




BEQ 


$^C0BD 


COBB 


C6 


57 




DEC 


♦57 


COBA 


4C 


BO 


CO 


J MP 


♦COBO 


COBD 


C6 


58 




DEC 


♦58 


COBF 


AS 


58 




LDA 


♦58 


COCl 


C9 


D7 




CMP 


•♦D7 


C0C3 


FO 


07 




BEQ 


♦COCC 


C0C5 


A9 


FF 




LDA 


•♦FF 


C0C7 


85 


57 




STA 


♦57 


C0C9 


4C 


BO 


CO 


JMP 


♦COBO 


COCC 


60 






RTS 




COCD 


A9 


04 




LDA 


#♦04 


COCF 


8D 


88 


02 


STA 


♦OZdd 


C0D2 


AD 


02 


DD 


LDA 


♦DD02 


CODS 


29 


FC 




AND 


•♦FC 


C0D7 


8D 


02 


DD 


STA 


♦DD02 


CODA 


A9 


IB 




LDA 


#♦18 


CODC 


8D 


1 1 


DO 


STA 


♦DOl 1 


CODF 


A9 


C8 




LDA 


#^C8 


COEl 


8D 


16 


DO 


STA 


♦DO 16 


COE4 


A9 


15 




LDA 


#♦15 


C0E6 


8D 


18 


DO 


STA 


♦DO 18 


C0E9 


60 






RTS 




COEA 


OO 






BRK 





It all happens a lot faster than it does in Basic. Hopefully this will whet 
your appetite for more machine code adventuring, starting with some 
FILL and PLOT routines perhaps (PLOT is easier!). 

We've already seen how to plot a point on the screen using high 
resolution co-ordinates, albeit in Basic, so since you now know how 
the code works in Basic, why not have a go at writing such a routine 
in machine code? 
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7 

General Introduction to Sound 



Musical theory 

The Commodore 64 is a virtually unrivalled piece of electronic 
sophistication when it comes to its musical capabilities. As a synthesiser 
on a chip it is easily capable of competing with dedicated synthesisers 
that cost many times more than the Commodore 64. And, of course, 
the 64 is still a computer. 

The chip just referred to is of course the SID chip, technically known 
as the 6581. We'll be going into more technical details about SID in 
chapter eight, but we'll start by looking at some traditional musical 
values. 

It is true that you do not have to be a great musician to be able to 
use the SID chip. Indeed, you hardly have to know anything about 
music at all, which in some cases (mine) is probably just as well. 



Electronic toy 

It can be used purely as an electronic 'toy', although a very powerful 
one, and it will give as much pleasure to the casual electronic tinkerer 
as it will to the dedicated computer programmer or to a dedicated user 
of a synthesiser. 

However, since the practical side of using SID is going to be explored 
in the next two chapters, this introductory chapter will concern itself 
more with some traditional musical theory (it isn't essential, but it does 
help, and you will get more out of this chip if you do know the 
background to it all), and a look at just some of the possibilities 
Commodore have presented us with. 
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Some musical terms 



Presumably since the dawn of time, people have been making a noise 
on one kind of musical instrument or another. Those instruments that 
have survived the passage of time are those that have something 
special about them, whether in terms of dynamic power, the range 
of their musical coverage, their sound quality (usually referred to as 
timbre), or whatever. 

Over the years the ever-increasing degree of coaxing which people 
have given to musical instruments has seen some astonishing advances 
in both melodic and harmonic structure, since these are largely 
dependent on the instrument itself, but what has perhaps not advanced 
so much is the field of rhythmic structure, since that is much more 
dependent on the skill of the person playing the instrument rather than 
the instrument itself. 

However, with the advent of computers like the Commodore 64 it has 
become possible to play hitherto unplayable rhythms, and it is possibly 
this more than any other reason that will eventually see the 64, and 
others like it, accepted as genuine musical instruments. 



Traditional music symbols 

Fortunately for computer buffs and musicians alike, there is a great 
degree of similarity between the binary system as used by computers 
and the standard musical notation used to denote the length of time 
for which a note will be played, or a pause will be held. 

Just like computers, music takes its numbers in the form 1,2,4,8,16,32, 
to denote a whole note, a half note, and so on, all the way down to 
a thirty-second note, an extremely short note! 

Thus whichever way you increase or decrease the tempo of the music, 
you're always going along in steps of two, like this: 
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1 






J The HfiLP Adti. 


itufp its » 




1 




WW. i ) 


The ^I6HTH nj^ 


(/cod 








am, "k ) 



There are, inevitably, slight complications to this otherwise simple 
picture, in the form of dotted notes, which are fifty per cent as long 
again, like this: 



O. A doited ititoUncti- s 3 J or2j. 

J. A ddCud kalf- /wC- =3 } erzl. 

j. A doiad fuarler ^ = 3 }erz}. 

3 iorZ }. 



Rests, or pauses, can be regarded in the same light as the notes they 
are named after, in that they too can be either whole periods of time, 
or dotted, and the difference between whole rests is always a factor 
of two. The symbols for rests look like this: 
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A/OTE 




iOHOLE O 





1 

HALF d 
1 


} 


oof\a.TZR J 

K 


y 


BlQHrH J 











Just to finish you off completely and destroy any illusions you might 
have had that this was going to be all plain sailing, we sometimes have 
to divide musical notes up into thirds, and these are known as triplets. 
They are illustrated in the diagram below: 



-Triply. 

JJJ 

A \ nota (J ^ cUtAcled cnh 5 parts is 

dlt/itUd inta 3 parts is m 



Movin' in rhythm 

Now that we know what all the symbols are, how do we go about 
using them? We could easily insert a whole lot of random notes into 
the registers and see what happens, but the resulting cacophony would 
convince you that there must be something more to music that merely 
playing sound. There is, of course, and we haven't looked at any items 
like melody, harmony, or rhythm. 
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Melody is in the ear of tlie listener, and what one person finds melodic 
another may well not. However, that is usually a matter of personal 
taste, and it is not at all derogatory to say that a piece of music 'has 
a nice melody'. Some would probably use that as a dismissal, but to 
most composers it would be praise indeed. 

Harmony is just one of the areas that can be explored perhaps more 
easily on a computer than it can on many other instruments, particularly 
when you have three independent voices to play with, and three 
independently selectable waveforms. (Four, if you count noise, but 
as that is what we're trying to avoid producing we'll stick to the other 
three.) 



Movin' in style 

But it is as a rhythmic instrument that, as we said at the beginning, 
the computer will probably become most widely acceptable. A few 
simple experiments should serve to convince you that this could be 
true. 

Most people can keep to a fairly reasonable beat. Just try clapping 
your hands together in a steady rhythm. However, when we move 
on to, say, a four-one rhythm it gets a little more difficult, but not much, 
and most people should again be able to keep a fairly steady two-one, 
three-one or four-one rhythm going. 

By four-one, we simply mean that for every fourth beat of, say, the 
left hand, you also beat the right hand. A two-one would indicate a 
beat of the right hand for every second beat of the left hand, and so on. 

What distinguishes the musicians amongst us is the ability to keep 
to a totally different rhythm, and then start to sub-divide that rhythm 
up into several equal-length components. 

You try doing a three-two beat! And then dividing that rhythm up into 
four equal components, and so on. After a short while the hands go 
totally out of synchronisation and you give up in disbelief that anyone 
could ever possibly manage to beat in time. 

But people do, as any music lover will know. However, there is a limit 
to what even the most gifted musician can accomplish, and that is 
why, as we said at the start, the Commodore 64 SID chip can score 
over many a musical rival. 
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New horizons in sound 

With three independent voices to play with, the 64 is capable, given 
the right program, of playing something like a 4:7:9 rhythm, an 
incredibly complex one that we mere mortals would never be able to 
play properly. But just because it has never been played does not mean 
that it will not sound pleasing to the ear. 

We'll come back to rhythms in the next couple of chapters, but for 
now, let's take a brief look at the good and bad points of the 6581 
SID chip. 

SID chip overview 

Technically, SID looks something like the diagram opposite. 

As you can see from the diagram, SID comes equipped with three 
voices, each of which has a tone generator to produce the sound, and 
an envelope generator which affects the structure and hence the 
volume of that sound. We can also combine some of these tone 
generators to produce some quite complex sounds. 

Most importantly, each voice can be routed through a filter, which 
is what really sets the 6566 apart from just about any other home 
computer available. The use of subtle filtering techniques allows some 
truly amazing sounds to be produced. 

Another thing that all three voices have in common is a master volume 
control, although this is to be decried rather than applauded. It would 
have been so much better to have introduced separate volume controls 
to give SID a truly synthesised polish, even though it would have made 
programming the chip more difficult. 

However, the extra difficulties are as nothing when it comes to trying 
to hover the volume of one voice at an intermediate level by rapidly 
switching it on and off. 

Other features 

There is an external audio output attached to the chip, which allows 
it to connect up to other SID chips, or link up to some other device 
like an electric guitar. 
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Also, you are given a couple of analogue to digital convenors as well, 
but since these are not electronically wired up to anything else on the 
chip we won't consider them any further. They could also be used 
to hitch up some games paddles or something. 



SID registers 

As with most of this chapter, the real details will begin to come later. 
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but it's important tliat we get the most important terms sorted out 
first of all, and know precisely what we're talking about. 

Each voice has been given 7 registers, which control virtually everything 
about that voice. In common with all the other registers on the 
Commodore 64, these are all 8 bit ones, and selecting any combination 
of bits for any individual register is almost bound to change the sound 
that you're producing. 

There are in addition to this another 8 registers set aside for controlling 
filtering, master volume, mode selection and so on. Putting them all 
together in one big map gives a result something like this: 
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You should refer to this diagram, at least in the early days, every time 
you alter something in one of the registers, so that you can see precisely 
what you're doing. 

We made the point earlier that it is far better to: 
POKE FRED, PEEK (FRED) OR BILL 
than it is to: 
POKE FRED, BILL 

since POKEing FRED with BILL affects not only whatever register(s) 
go to make up BILL, but also the rest of the ones in memory location 
FRED as well. The first statement only effects the registerls) in BILL. 

As can be seen from the control register diagram, haphazardly altering 
certain registers can produce somewhat unpredictable results, although 
there is always the vague possibility that you might stumble across 
something interesting along the way. 



Envelope generating 

Each one of the three generators can be set to one of four different 
waveforms, namely sawtooth, pulse, triangle and noise. 

The latter one, noise, has no precise pitch and can come out sounding 
like anything from the roar of a motor bike to the hissing of a snake, 
from the sound of waves on the beach to the sound of a cymbal being 
struck. 

Triangle waves tend to give mainly mellow, flute-like sounds, while 
sawtooth waves have lots of harmonics and are good for impersonating 
brass or string instruments. 

Pulse waves are the richest of the lot, depending on what kind of pulse 
width you select. With a pulse width of almost zero (or 100 per cent), 
you get a very thin sound like an oboe, but with a pulse wkith of around 
50 per cent you get a square wave being produced, which sounds very 
hollow, like a clarinet. 

In between these you can produce just about anything, including 
(provided you have the right filtering set) sonnething remarkably like 
a human voice. 
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Scales and ranges 



The range of the 6581 chip is usually reported to be eight octaves, 
although it can go further than that. Notes can be played so low that 
you won't be able to hear them, even as low as a frequency of about 
one cycle every 16 seconds. This is not a particularly useful set of notes 
to play. 

The actual frequency that it plays a note at is determined by two 
registers, termed frequency low and frequency high. Since this gives 
us a very good control over the frequency of the note that is being 
played, it allows us to introduce such effects as glissando, by rapidly 
incrementing or decrementing the frequency of the note so that it 
appears to glide smoothly from one note to another. 

Setting the three voices to be slightly out of tune with each other can 
also produce some interesting effects, almost choral-like in quality. 



Ring modulating and synchronising 

Vastly different in name but fairly similar in result, these two techniques 
allow the various voices to be combined with each other in a number 
of interesting ways, to produce a mixture of the two tones being played, 
along with some tones that weren't even there in the first place. 

You can only modulate or synchronise one voice with one other voice, 
but despite that you can get some great effects using these facilities. 
They make it very easy to simulate such metallic noises as gongs and 
chimes, as well as producing some very good 'scary science fiction' 
noises. By varying the frequency of one of the voices while listening 
to the signal being played, you can hear some pitches rising while 
others fall. 

You can only use ring modulation with the triangular waveform, while 
synchronisation can be used with any of them, so you'll have to take 
care if you want to try combining both effects. 



Filtering 

Mention this to any synthesiser player and he'll begin to realise that 
perhaps this little machine should be taken seriously after alll 
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Although filtering doesn't by itself produce a musical note, it does allow 
you to alter the tone that is being produced by the three voices. 
Unfortunately you are not allowed to filter voices independently, as 
there is just the one filter. Still, you can always send two voices to 
the main output and alter them by changing the pu\se width, while 
at the same time filtering just one of the voices. 

There are three different types of filtering that we can use, and these 
are termed low pass (which reduces in volume everything above a 
certain cut-off frequency at a rate of 12 decibels per octave, while 
passing through everything below that frequency as per norn^l), high 
pass (which is the reverse, in that everything above a cotain frequency 
gets through as normal, while everything below gets reduced at the 
12 decibel rate), and band pass (which passes signals fairly close to 
a specified frequency and reduces everything else at the usual rate, 
whether above or below that frequency). 

You can also mix the low and high pass filters to produce what is 
termed a notch filter. This rejects everything near to the specified 
frequency, but lets through everything that is a certain frequency above 
or below it: the opposite of band pass. 

Finally, the filter also has a resonance control, which determines how 
strong the effect will be. With a low resonance everything is fairly similar 
to the effects produced by the tone etc. controls on a stereo (i.e. it 
all happens gradually), but with a very high resonance the effect is 
much more severe: like a rock guitarist's wah-wah pedal, which is 
nothing more than a band pass filter with a very high resonance. 



Attack/decay/sustain/release 

Together, the four terms listed above combine to form the envelope, 
or shape, of a musical note, and it is this envelope which determines 
the timbre of the note being played. 

Any or all of these four can be changed for each voice, and in order 
they do the following: 

Attack measures the time it takes for a note to reach maximum volume. 
Decay measures the time it takes to decline to an intermediate level. 
Sustain holds the note at that level for as long as you want. 
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Release measures the time it takes for the volume of the note to reach 
zero i.e. silence. 

By varying these, many different musical instruments can be simulated, 
as we shall see later on. 



To conclude 

There are other features that we haven't really looked at, such as those 
attached to voice three that allow you to read the tone generator's 
output and the envelope generator's output. This could, for instance, 
be used to produce a tremolo effect by setting voice three to be a 
triangular wave of very low frequency, reading the waveform value 
and then adding that to the frequency numbers for voices 1 and/or 2. 

The rest is mainly up to you and your willingness to experiment. 

However, as yet we don't know what memory locations to experiment 
with, so without further ado ...I 
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8 

Starting to Play with Sound 

Introduction 

From the preceding chapter it can readily be appreciated that we are 
dealing with a rather special 'dedicated' chip, certainly something much 
more complex than, say, the Sinclair Spectrum or the Electron sound 
processors. 

Many of the ideas explored in chapter seven will be explained in much 
more detail in this and the next chapter, and there will be a number 
of sample programs for you to type in, along with some more ideas 
for your own experiments with this chip. 

As always, however, you've got to walk before you can run, and so 
some of the next few pages will be spent on giving you all the 
information you'll need to know In order to start making SID 'talk' to 
you. 

As with the use of graphics on the Commodore 64, it isn't always easy 
to get started with sound, and some of the topics mentioned here will 
get only a fairly brief mention. This is not to say that they are all 
incredibly complex, because that simply isn't true, but they are beyond 
the scope of anything other than a book dedicated to music and sound 
on the 64. 

However, because the facilities exist they will be mentioned, and at 
the end of this chapter there will be a round-up of all the features you 
can find in this chip, what each and every register does, and what 
most of the bits in these registers do as well. 

Armed with that knowledge you can then start exploring the chip for 
yourself. Filtering voices, synchronising them, modulating them, and 
generally producing a whole host of effects that will be all the better 
because you produced them yourself. 

Music is, after all, an art not a science, and if everything about music 



151 



could be fully explained then there wouldn't be much point in playing 
it any more! 

Nevertheless, all art has got to start somewhere and we've got to start 
with a bit of science, by giving you the SID chip memory map. 

SID chip memory map 

SID allows us access to 28 memory locations, starting at location 54272 
and proceeding up to 54300. The table below indicates briefly what 
each register is capable of controlling. 

As usual, we'll adopt our common policy of having a base register, 
and then detailing everything above that as being the 5th register, 10th 
register, or whatever. It makes it a lot easier to remember where 
everything is! 

Register Description 
(54272+) 

00 Low frequency value of note for voice 1 

01 High frequency value of note for voice 1 

02 Low pulse rate for voice 1 

03 High pulse rate for voice 1 

04 Waveform for voice 1 

05 Attack/decay for voice 1 

06 Sustain/release for voice 1 

07 Low frequency value of note for voice 2 

08 High frequency value of note for voice 2 

09 Low pulse rate for voice 2 

10 High pulse rate for voice 2 

1 1 Waveform for voice 2 
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12 Attack/decay for voice 2 

13 Sustain/release for voice 2 

14 Low frequency value of note for voice 3 

15 High frequency value of note for voice 3 

16 Low pulse rate for voice 3 

17 High pulse rate for voice 3 

18 Waveform for voice 3 

19 Attack/decay for voice 3 

20 Sustain/release for voice 3 

21 High frequency cut-off 

22 Low frequency cut-off 

23 Turn on filtering 

24 Set volume for all three voices, plus 
select filter type 

25 Access to output of envelope generator 
of voice 3 

26 Access to Y potentiometer reading on pin 
23 

27 Digitised output from voice 3 

28 Digitised output from envelope generator 
number 3 

So you see, there are a large number of things that we can do with 
an extremely small number of registers. 

But before we can even begin to start playing a note, there are a few 
more things that we need to know. 
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If we just concentrate on voice 1 for now, the table above tells us that 
the volume of that voice (and indeed all the others) is controlled from 
register 24. So the first couple of lines of a simple program to play 
a note become: 

10 V=54272 

20 POKE V+24, 15 

Having turned the volume on, we must then select the 
Attack/decay/sustain/release settings for voice one, as controlled by 
registers 5 and 6. The previous chapter told us what these settings 
do, and a little bit about how different settings in each register can 
affect both the quality and the volume of the note being played. We'll 
be going into more detail about changing these registers later in the 
section on envelope generation, but for now it is convenient to think 
of them as two registers, each of which is split up into two separate 
nibbles. 

In other words, we can think of them as looking like this: 

Bit 1 2 3 4 5 6 7 
Value 1 2 4 8 1 2 4 8 

where the first four bits control the decay (or release) of the note, and 
the second four control the attack (or sustain) of the note. 

If we decide that we want an attack of 4, and a decay of 2, then the 
value that we must POKE into the appropriate register is found by 
multiplying the attack value by 16, and adding on the decay value. 
Hence in this example we'd have to POKE the register with (16*4 plus 
2) or 66. 

Different values can be combined, so that if we wanted an attack of 
7 and a decay of 5 (thus altering bits 0, 2, 4, 5 and 6), we'd POKE 
the register with (7*16 plus 5), or 117. 

What do these numbers actually mean? The following tables will show 
us precisely that. 



ATTACK/DECAY RATE SEHINGS 

AHACK/DECAY HIGH MEDIUM LOW LOWEST HIGH MED. LOW LOWEST 
SEHINGAHACK AHACK AHACK ATTACK DECAY DECAY DECAY DECAY 
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SUSTAIN/RELEASE RATE SETTINGS 
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We can combine these values in any way we choose, and for the 
purposes of our program we'll select an attack/decay setting of 68, 
and a sustain /release setting of 70. 

Thus the next two lines of our program become: 

30 POKE V+5,68 
40 POKE V+6,70 

Slowly but surely we're getting there! The next step is to select our 
waveform, which is set by altering the content of register 4. This is 
usually POKEd to be be one of the following four values: 

17 : selects a triangle waveform 

33 : selects a sawtooth waveform 

65 : selects a pulse waveform 

129 : selects the noise waveform 

To play our masterpiece, we'll use the sawtooth waveform, and so 
the next line of the program becomes: 

50 POKE V+4,33 

POKEing that location with one less than the value given above will 
turn the voice off, without affecting anything else, so that one can 
rapidly oscillate from on to off. 

All we need to know now is what note we are going to play. The two 
registers that are affected are and 1 , and the following table will show 
us what values to put into those registers for most of the audible notes 
that SID is capable of producing. 
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Table of musical notes 
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Not* 
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From the above table we can select whatever note is required, and 
POKE the values into the correct registers. To play note C from the 
first octave, you can see that the high frequency has a value of 2, and 
the low frequency a value of 37. So to play the note, we must add 
the following two lines to our program: 

60 POKE V+1,2 
70 POKE V,37 

Combining the whole program together, along with a delay line and 
a closing line to turn everything off again, we get the following: a lot 
of work for a single note. 

10 V=54272 

20 POKE V+24,15 

30 POKE V+5,68 

40 POKE V+6,70 

50 POKE V+4,33 

60 POKE V+1,2 

70 POKE V,37 

80 FDRK= 1 TO 1 000 : NE X TK 

90 FORI=OT024:POKE V+I,0:NEXT 

Turning everything off when you've finished is always a good idea, 
otherwise you'll rapidly be reaching for the headache tablets. 

We can use this simple way of building up a note to get the computer 
to play a little tune. For the time being we'll only use one voice, but 
even with that voice you'll still be able to get some idea of the effects 
that the Commodore 64 is generating. 



Musical tunes 

One way of building up a tune would be to store our note data as data 
statements, and then read it into a suitable set of variables. Then it 
would only be a question of POKEing the correct locations with the 
values stored in the variables, as in the following example. 

lO V=54272 
20 POKE V+24,15 
30 POKE V+5,6a 
40 POKE V+6,70 
50 POKE V+4,33 

55 READ A,&,C 

56 IFA<1THEN95 
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60 POKE V+1,B 

70 POKE V,C 

80 F0RI=1T0A»50:IMEXTI 

85 POKE V+1,0 

90 B0T055 

95 F0RI=0T024:P0KEV+I,0:rvEXT 

100 DATA 10,5,185,10,5,185,10,6,108,15,5,105,5,5,1 
85,12,6,108 

110 DATA 10,7,53,10,7,53,10,7,163,15,7,53,5,6,108, 
12,5, 185 

120 DATA 10,6,108,10,5,185,10,5,105,15,5,185,0,0,0 



A recognisable little tune. 

If you study the listing, you'll see that we're reading in three different 
variables each time, the second and third being the high and low 
frequency, and the first just acting as a delay loop, telling us how long 
to play each note. 

From this basic idea, we can begin to play around with the data 
statements, and the values we're putting into the appropriate registers, 
to create a host of different sounds. 

In this next listing, we're using the pulse waveform, so we've had to 
put in two lines which set the low and high pulse rates for voice 1 . 
We've also upped everything by a couple of octaves as well. 

10 V=54272 

20 POKE V+24,15 

30 POKE V+5,9 

40 POKE V+6,0 

45 POKE V+2,255 

46 POKE V+3,20 
50 POKE V+4,65 

55 READ A,B,C 

56 IFA<1THEN97 
60 POKE V+1,B 
70 POKE V,C 

80 F0RI=1T0A»50:NEXTI 

95 F0RI=0T023!P0KEV+I,0sNEXT 

96 SOTO 20 

97 F(«I=OT024: POKEV+I ,0: NEXT 

100 DATA 5,22,227,5,22,227,5,25,177,10,21,154,2,22 
,227,7,25, 177 

110 DATA 5,28,214,5,28,214,5,30,141,10,28,214,2,25 
,177,7,22,227 

120 DATA 5,25,177,5,22,227,5,21,154,10,22,227,0,0, 

O 
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From this, we can do all sorts of things. 

The following lines are just some of the ideas that you could incorporate 
into your own programs, and illustrate how easy it is to alter the sound 
being produced by the Commodore 64. 

10 V=54272 
20 POKE V+24,15 
30 POKE V+5,9 
40 POKE V+6,0 

45 Z=Z+15 

46 POKE V+2,Z:P0KE V+3,Z 
50 POKE V+4,65 

55 READ A,B,C 

56 IFA<1THEN97 
60 POKE V+1,B 
70 POKE V,C 

80 F0RI=1T0A*50:NEXTI 

95 F0RI=0TG23;PaKEV+I,0!NEXT 

96 GOTO 20 

97 F0RI=0T024:P0KEV+I ,0:NEXT 

100 DATA 5,22,227,5,22,227,5,25,177,10,21,154,2,22 
,227,7,25, 177 

110 DATA 5,28,214,5,28,214,5,30,141,10,28,214,2,25 
, 177,7,22,227 

120 DATA 5,25,177,5,22,227,5,21,154,10,22,227,0,0, 





10 V=54272 
20 POKE V+24,15 
30 POKE V+5,9 
40 POKE V+6,0 
50 POKE V+4,17 

55 READ A,B,C 

56 IFA<1THEN97 
60 POKE V+1,B 
70 POKE V,C 

80 F0RI=1T0A«50:NEXTI 

95 F0RI=0T023:P0KEV+I,0:NEXT 

96 GOTO 20 

97 F0RI=0T024:P0KEV+I,0:NEXT 

100 DATA 5,22,227,5,22,227,5,25,177,10,21,154,2,22 
,227,7,25, 177 

110 DATA 5,28,214,5,28,214,5,30,141,10,28,214,2,25 
,177,7,22,227 

120 DATA 5,25,177,5,22,227,5,21,154,10,22,227,0,0, 

O 
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Musical values 



By now you may be wondering how we arrived at all the values listed 
in the table of musical notes for th^ high and low frequencies of each 
note. They are not just numbers plucked out of thin air, refined after 
experimenting with the SID chip, but are rather based on the physics 
of sound and the frequency in hertz of each note. 

The following table lists the frequencies that can be achieved on the 
64 (although the final one listed does go off the scalel). 
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This table provides us with a quick and easy way of generating an 
equal-tempered musical scale. However, since it would take up 192 
bytes to store all this in memory, it is not the most memory-effective 
way of doing things. 

It might be better to store all the values for the frequency as one table 
covering just one octave: this requires a mere 12 bytes to store it. Then, 
using the fact that notes in different octaves have directly related 
frequencies (move up one octave and all the frequencies are doubled, 
move down one and they're all halved), we could readily calculate the 
frequency of any note in any octave. 

This technique is used in one of the programs in chapter nine, where 
the player of the musical keyboard is allowed to slide up and down 
from octave to octave, and the computer just calculates whatever the 
new frequencies should be. 

How do we perform these calculations? Let's have a look at some 
physics. 

The physics of music 

The sounds that you hear generated by the 64 are nothing more than 
a series of waves, similar to those of a pond when you throw a stone 
into it. The ripples showing on the pond are analogous to those 
produced by generating a sound. 

The distance between successive peaks can be accurately measured 
as a function of time. Thus we determine the interval between 
successive peaks of the wave passing the same spot. If we call this 
X seconds, then the frequency of the wave is denoted as (1/X). 

In other words, the number of waves passing the same point in one 
second is called the frequency. This is measured in cycles per second, 
otherwise known as hertz. 

For example, the table above tells us that the pitch for the note middle 
C is 261 .63 hertz. Anything above about 3000 hertz tends to get a little 
bit painful after a while. Try playing the note A three octaves above 
middle C (high frequency 230, low frequency 176), and you'll see, or 
rather hear, what I mean. 

To get from a value for the frequency to the values quoted for the 
high frequency and the low frequency listed earlier, in other words 
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to get our two values which will determine which note is to be payed, 
we have to do a little bit of mathematics. 

If we call the frequency FQ, then the first stage of our equation is: 
F = INT(FQ/0.05961) 

Taking the value F, the high order frequency (call it FH) can be found 
from the following equation: 

FH = INT(F/256) 

To find the low order frequency (call it FL), we need to repeat the above 
equation, but don't take the integer part of the number, instead take 
whatever part comes after the decimal point. So, if the result of dividing 
F by 256 was something like 5.9856, the part that interests us is the 
0.9856. 

This is then used as follows: 
FL = 256-256»0.9856 

Using these equations we can then find all the high and low order 
frequencies, and use them in our programs to produce precisely the 
notes that we want. 

But now, a program I 

Musical Keyboard 

This program turns the 64 keyboard into a musical one, and alk>ws 
you to play all three voices. 

Any one, or all, of the voices can be altered simply by pressing the 
return key, which takes you into another part of the program where 
you alter the waveform of a voice, the shape of the envelope for that 
voice, and so on. In this way you can experiment with the various 
sounds that the machine can produce. 

The three voices are predefined for you in a set of data statements, 
but these can easily be changed as you see fit. 

It is by no means turning the 64 into a true synthesiser, although it 
is a step along the way, and we'll come back to this program in the 
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next chapter and make it do a whole lot nnore than it does at present. 

But since this forms the bare bones around which we'll hang the flesh 
of that later program, here it is. 

Program notes 

Line 5 : declare variable V, and turn voice 1 on (all voices are referenced 
as VO) 

Line 20 : go to subroutine to read all the musical data in. 

Line 30 : go to subroutine to print on-screen instructions and keyboard. 

Line 1000 : check for key press and shift/logo 

Line 1010 : if it's all the same as last time then don't do anything. 

Line 1020 : get frequency relating to key pressed. 

Line 1030 : if no note then turn voices off. 

Line 1040 : if numeric key pressed, then 3000. 

Line 1045 : if Return pressed, then 4000. 

Lines 1050-1060 : if shift or logo pressed, adjust frequency accordingly. 

Lines 1070-1080 : calculate frequency. 

Lines 1085-1130 : play note for relevant voices. 

Lines 2000-2050 : turn voices off. 

Lines 3000-3040 : turn on/off relevant voices. 

Lines 4000-4024 : on-screen display for altering 
voices. 

Lines 4026-4029 : which voice. 

Lines 4030-4036 : to which waveform. 

Lines 4037-4250 : rest of alterations. 
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Lines 5000-5150 : on-screen instructions. 
Lines 6000-6120 : data and set-up voices. 



5 V=54272:VQ<0>=1 

10 REM FROM AN ORiniNAL IDEA BY RICHARD FRAr«<LIN 
20 GaSUB6000 
30 G0SUB5000 

1 000 K=PEEK < 1 97 ) : PS=PEEK ( 653 ) 

1010 IFK=«LKANDPS=LSTMENlOO0 

1020 F=N(K)»LK»=KiLS*PS 

1030 IF F«0 THEN 2000 

1040 IF (F>0ANDF<9)THEN 3000 

1045 IF K-'l THEN 4000 

1050 IF PS=1 THEN F=INT (F»2'' ( 1/12) ) 

1060 IF PS«2 THEN F=INT (F/2'' < 1 /12> ) 

1070 Fl=INT(F/256) 

1080 F2-F-F 1*256 

1085 FOR I=*0 TO 2 

1086 IF VO(I>«0 THEN 1125 
1090 POKE V+ 1*7+4,0 

1100 POKE V+I»7+4,W(I)*16+RM(I)*4+SY(I)*2+1 

1110 POKE V+I«7,F2 

1120 POKE V+I*7+1,F1 

1125 NEXTI 

1130 BOTO lOOO 

2000 FOR 1=0 TO 2 

2010 POKE V+I*7,0 

2020 POKE V+ 1*7+ 1,0 

2030 POKE V+I»7+4,W(I)*16 

2040 NEXT I 

2050 QOTO lOOO 

3000 F«F-1 

3010 FOR 1=0 TO 2 

3020 V0<I> = <FAND2''I)/2''I 

3030 NEXT I 

3040 eOTO lOOO 

4000 POKE 53280,14: POKE 53281 , 1 : PRINT" CPUR3 " 

4001 PRINT "CCLR3 kOlCE 1 VOICE 2 V 
DICE 3" 

4002 F0RI=lT010iSETKY»:hEXT 

4003 PRINT " CCD] WAVEFORM" ! TAB < 12) ;W«(0); TAB (22) I H« 
<1) ;TAB(32) ;W«(2) 

4004 PRINT ">»TT/DEC"jTAB(13) sAD<0) jTAB(23) ;AD(1) jT 
AB(32>;AD(2) 

4006 PRINT "SUS//7EL";TAB(13) ;SR(0> ;TAB(23) ;8R(1) |T 
AB(32) *SR(2) 

4008 PRINT "f>\X.SE HI " ; TAB ( 13) j PH (O) ; TAB (23) | PH< 1 ) | 
TAB (32) ;PH(2) 

4010 PRINT "rtJLSE 10" 5 TAB ( 13) ; PL (O) j TAB (23) j PL ( 1 ) ; 
TAB (32) J PL (2) 
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4012 PRINT "RING «DD" ; TAB ( 13) ; RM (O) ; TAB (23) ; RM ( 1 > ; 
TAB(32) ;RM(2) 

4014 PRINT "SYNC " ; TAB ( 13) ; SY (0) ; TAB (23) j SY ( 1 ) ; 
TAB(32) ;SY(2) 

4016 PRINT" CCD 3 DO YOU WANT TO CHANGE ANY VALUES lY 
/«)?" 

4018 GETCH*: IFCH*="N"THEN30 
4020 lFCH*<>"Y"THEN40ia 

4022 PRINT" CCD3HHICH VOICE (1, 2 OR 3)?" 
4024 GETVC* : I FVC*= " " THEN4024 

4026 IFVC*="1"THENPRINT"I/0ICE 1":VC=0:60T0 4030 

4027 IFVC*="2"THENPRINT"I/QICE 2":VC=liG0T0 4030 

4028 IFVC*="3"THENPRINT"|/0ICE 3":VC=2:60TQ 4030 
^029 GOTO 4024 

4030 PRINT "CCD3WAVEF0RM (T, S, P, OR «)?" 

4031 GETWF*: IFWF*=""THEN 4031 

4032 I F WF*= " T " THENPR I NT " T R I ANGLE " : W ( VC ) = 1 : W* ( VC ) = " 
TRIANGLE": GOTO 4037 

4033 I FWF*= " S " THENPR I NT " SAWTOOTH " : W ( VC ) =2 : W* ( VC ) = " 
SAWTOOTH": GOTO 4037 

4034 I F WF*= " P " THENPR I NT " PULSE " : W ( VC ) =4 : W« ( VC ) = " PUL 
SE":60T0 4037 

4035 I F WF*= " N " THENPR I NT " WO I SE " : W ( VC ) =8 ! W* ( VC ) = " WO I 
SE":GOTO 4037 

4036 GOTO 4031 

4037 INPUT "/!|TTACK/DECAY"sftD(VC) : IFAD(yC)<OORAD(VC 
) >255THENPRINT"C2CU3":G0T0 4037 

4039 INPUT "SUSTAIN/RELEASE" ; SR (VC> : IFSR(VC><OORSR 
< VC ) >255THENPR I NT " C 2CU 3 " : GOTO 4039 

4041 INPUT "PULSE HI";PH(VC) : IFPH(VC><ODRPH(VC) >25 
5THENPRINT"C2CU]":G0Ta 4041 

4043 INPUT "PULSE Z. I " ; PL (VC) : IFPL (VCXOGRPL ( VC) >25 
5THENPRINT"C2CUD":GaTQ 4043 

4045 INPUT "RING «DD" ; RM (VC) : IFRM (VCXOGRRM (VC) >15 
THENPRINT"C2CU]":GaTa 4045 

4047 INPUT "SYNC";3Y(VC) : IFSY(VC)<OORSY(VC) >15THEN 
PRINT" C2CU3": GOTO 4047 
4049 GOTO 4000 
4250 RETURN 

5000 POKE 53280, 8: POKE 5328 1,0: POKE 53272,23 

5005 PRINT" CYEL,CLR,RVS 3 *♦♦»♦♦♦«* SING-Zl-LGNG-Zl- 

64 **»♦»»*♦» [ OFF ] " 

5008 PRINT" CRVSD**»»»****» BY SID ♦*** 

»««»*»" 

5010 PRINT" PLAY USING THE KEYS CRVS3Q W E R T Y U 
I" 

5020 PRINT" ECD3 CRVSDA S D F G 

H J K" 

5030 PRINT" CCD: CRVS3Z X C V B 

N M ," 

5040 PRINT" CCD] TO COVER THREE OCTAVES." 

5050 PR I NT "CCD 3 WSE THE CRVS3SHIFTCOFF3 KEY FOR A 
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SHARP," 

5060 PRINT" CRVS3CBMCOFF3 KEY FOR A FLAT 

fl 

5070 PRINT" CCDIWSE THE KEYS CRVS30 12 3 4 5 6 7E0 
FF3 TO" 

5080 PRINT"CHOOSE WMY COMBINATION OF THE THREE" 
5090 PRINT"VOICES. THEY ARE SET UP BY USING BINARY 

•I 

5100 PRINT"<«ITHMETIC. THEREFCX^E, VOICE 1 IS TURNE 
D"; 

5110 PRINT"ON USING KEY 1, VOICE 1 AND 3 ARE TURNE 
D"; 

5120 PRINT"ON USING KEY 5,ETC. " 

5130 PRINT" CCD3(/SE THE CRVSaRETURNCOFFJ KEY TO CHA 
NGE THE VALUES" 

5140 PRINT"OF THE VOICES. CHOMEl " 

5150 RETURN 

6000 DIM N(64) 

6005 FOR 1=0 TO 64 

6010 READ A 

6015 N(I>=A 

6020 NEXT I 

6025 DATA ,-1,0,0,0,0,0,0 

6030 DATA 4,9854,4389,5,2195,4927 

6035 DATA 11060,0,6,11718,5530,7,2765,5859 

6040 DATA 13153,2463,8,14764,6577,0,3288,7382 

6045 DATA 16572,2930,0,17557,8286,1,4143,8779 

6050 DATA 0,3691,0,0,0,0,0,0,0,4389,0,0,0 

6055 DATA 0,0,0,0,0,2,0,0,3,0 

6060 DATA 0,8779,0,0 

6070 FOR I»0 TO 2 

6080 READ W( I > , AD ( I ) ,SR ( I > ,PH( I > ,PL ( I ) ,U«( I > ,RM< I > 

,SY(I) 

6090 NEXT 

6100 DATA 1,102, 108, 0,0, "TRIANGLE", 0,0 
6110 DATA 2,96, 108,0,0, "SAWTOOTH", 0,O 
6120 DATA 4, 9, 0,0, 255, "PULSE", 0,0 

6122 F0RI-0T02 

6123 POKE V+7*I+4,W(I)+RM(I)+SY(I) 

6124 POKE V+7«I+5,AD(I) jPOKE V+7»I+6,SR < I ) :P0KE V+ 
7»I+3,PH(I) :POKE V+7*I+2,PL ( I ) 

6126 NEXT 

6-128 POKE V+24,15 

6130 RETURN 



Notes 

As usual, the up-arrow key causes us problems in a few places, notably 
lines 1050,1060 and 3020. 
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The letters in italics are only so because the program has been written 
in lower case mode, and should be entered as shifted letters when 
you type the program in. 

There are no graphics characters used, so there shouldn't be any great 
problems in deciphering the rest of the listing. 

Of note (sorry!) is the way the frequency values are handled and 
calculated. They are read in as a table from line 6000 onwards, and 
are stored in the order of the values returned by PEEK(197) in an array 
N. Thus if the nth key is pressed, the frequency is found from looking 
at N(n). The numeric keys cause various voices to be switched on and 
off, and hence the check in line 1040 to see if one of them has been 
pressed. 

Using multiple voices 

You'll already have seen this kind if thing in action in the last program, 
but for a few more details, read on. 

The kind of principles used in that program, that of playing through 
a loop and playing all the voices that way, the idea of another loop 
to turn them all off again, can readily be appreciated, since we're not 
doing anything too complex with any one voice. 

However, playing with ring modulation and synchronisation, as we 
shall see in the next chapter, can produce some very interesting results, 
but alas they all require somewhat different techniques in playing the 
notes. 

The following three short examples all use either ring modulation or 
synchronisation, and illustrate just one way in which these effects can 
be utilised. 

We'll be seeing more of this in the next chapter, but for now three 
very different sounds. By playing about with the listings, and in 
particular altering the waveform registers to include or cut out various 
effects, you'll get a clearer understanding of the ways in which many 
a strange sound can be produced on the 64. 
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lO V=54272 

20 POKE V+24,15 

30 POKE V+5,9:P0KE V+68,255 

40 POKE V+6,0:P0KE V+20,70 

45 POKE V+2,255 

46 POKE V+3,20 

50 POKE V+4,67:P0KE V+18,33 
52 POKE V+14,5iP0KFV+15,2 

55 READ A,B,C 

56 IFA<1THEN97 
60 POKEV+l,B 
70 POKE V,C 

80 F0RI=lT0A»50iNEXTI 

95 F0RI=0T023!PCM<EV-H,0:NEXT 

96 GOTO 20 

97 FORI=OT024!PdKEV+I,0:NEXT 

100 DATA 5,22,227,5,22,227,5,25,177,10,21,154,2,22 
,227,7,25,177 

110 DATA 5,28,214,5,28,214,5,30,141,10,28,214,2,25 
,177,7,22,227 

120 DATA 5,25,177,5,22,227,5,21,154,10,22,227,0,0, 

O 



10 V=54272 

20 POKE V+24,15 

30 POKE V+5,9iP0KE V+19,255 

40 POKE V+6,0:POKE V+20,70 

50 POKE V+4, 23s POKE V+18,33 

52 POKE V+14,5sP0KEV+15,2 

55 READ A,B,C 

56 IFA<1THEN97 
60 P0KEV+1,B 
70 POKE V,C 

80 F0RI=1T0A«50:NEXTI 

95 FORI=OT023:POKEV+I,OsNEXT 

96 SOTO 20 

97 F0RI=0T024:P0KEV+I,0!l«XT 

100 DATA 5,22,227,5,22,227,5,25,177,10,21,154,2,27 
,227,7,25,177 

110 DATA 5,28,214,5,28,214,5,30,141,10,28,214,2,25 

177 7 22 227 

120 DATA 5,25,177,5,22,227,5,21,154,10,22,227,0,0, 
O 



lO V-54272 

20 POKE V+24,15 

30 POKE V+5,9jP0KE V+19,255iP0KE V+12,36 
40 POKE V+6,OsPOKE V+20,70sP0KE V+13,36 

46 POKE V+3,A:POKE V+10,15 

47 POKE V+2,20:P0KE V+9,20 
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50 POKE V+4,71:P0KE V+18, 129: POKE V+11,129 

60 FORI =10T040: POKE V+ 1 , I : POKEV+15 , 3: POKE V+7,4:NE 

XT 

70 A=A+10: IFA>250THENA=0 

95 FORI=OT023:POKEV+I ,0!NEXT 

96 GOTO 30 

97 FORI=OT024:POKEV+I ,0!NEXT 



And now, as a forerunner to the more connplex features explored in 
the next chapter, here is a fairly detailed breakdown of what each of 
the sound registers in the SID chip actually does. Understanding what 
the registers do is the key to unlocking the amazing features of the 6581 . 

6581 Register descriptions 

We'll now spend a few pages going through each register in detail, 
using location 54272 as our base register, or register 0, starting with: 



Voice 1 : frequency low/frequency high 

These two registers combine together to form a 16 bit number which 
linearly controls the frequency of voice 1 . 

This frequency is determined by the following equation: 

Fout = (Fn * Folk/ 1677721 6) Hz 

where Fn is the 16 bit number in the frequency registers, and Folk is 
the system clock applied to the 02 input, pin 6. 

Since the Commodore 64 has a one megahertz clock, this formula 
comes down to: 

Fout = (Fn * 0.05961) Hz 

It should also be noted here that the frequency resolution of the 6581 
is such that sweeping from note to note on an even-tempered scale 
is possible without any noticeable frequency steps. 

This allows us to produce such effects as glissando and portamento, 
where the note sweeps cleanly either up or down the scale, in the case 
of glissando changing in steps of semitones. 
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Pulse width low and high 

These two registers combine together to form a 12 bit number, which 
linearly controls the pulse width of the pulse waveform of voice one. 
Bits 4 to 7 of pulse high are not used, which is why we get just 12 
bits and not 16. 

This pulse width is determined by the following equation: 
PWout = (PWn/40.95) % 

where PWn is the 12 bit number in the PW registers. 

Again, the pulse width resolution is such that the width can be 
smoothly swept along without any noticeable stepping effects, as you'll 
have seen in some of the example programs given earlier. 

For constant pulse widths, a value of or 4095 will produce a constant 
DC output, while a value of 2048 will produce a perfect square wave. 

Obviously these features cannot be used without having previously 
selected the pulse waveform for voice 1 . Conversely, setting the pulse 
waveform for voice 1 and then not setting the pulse width registers 
won't produce very much in the way of sound either. 



Control register 

The most important register of them all, containing eight control bits 
with the following functions: 



Gate - bit 

This controls the envelope generator for voice 1, and when this bit 
is set to a '1' the envelope generator is triggered and the 
Attack/ Decay/ Sustain (or ADS) cycle is begun. 

When this bit is reset to a zero, then the release part of the cycle begins. 

This envelope generator controls the amplitude of voice 1 as it appears 
at the audio output, and must therefore be triggered in order for the 
selected output of voice 1 to be audible. 
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Sync - bit 1 

When set to a '1 ' this synchronises the fundamental frequency of voice 
1 with the fundamental frequency of voice 3, producing what are 
known as 'hard sync' effects. 

Varying the frequency of voice 1 with respect to voice 3 produces a 
wide range of complex harmonic structures from voice 1 at the 
frequency of voice 3: this was used in one of the example programs 
given earlier. 

In order for this to take place, obviously voice 3 must be set to some 
frequency or other, preferably lower than that of voice 1 , but naturally 
higher than zero. 

Nothing else connected with voice 3 has any effect on sync. 



Ring mod - bit 2 

When set to a '1' this bit replaces the triangle waveform of voice 1 
with a ring modulation combination of voices 1 and 3: obviously one 
must previously have selected the waveform of voice 1 to be a triangle 
one. 

Varying the frequency of voice 1 with respect to voice 3 produces a 
wide range of non-harmonic overtone structures. 

Again, nothing else connected with voice 3 has any effect on ring mod. 
Test - bit 3 

This bit, when set to a '1', resets and holds voice 1 at zero until the 
bit is cleared. 

The noise waveform of voice 1 is also reset, and if a pulse wave has 
been selected this is held at a DC level. 

Normally only used for testing purposes - hence the name - it can be 
used to synchronise voice 1 to external events. 

It can also have a couple of musical applications. Setting this bit to 
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a'V instantly clears the voice, whereas using any other method takes 
at least a couple of nnilliseconds. 

In addition, you can use this to synchronise a number of voices to 
start at exactly the same time. If, for instance, you were playing a set 
of rhythms with the three voices, you'd want them all to start at 
precisely the same moment, othen/vise some very non-harmonic effects 
might occur. 



Triangle - bit 4 

When this is set to a 'V, the triangle waveform is selected for voice 
1 . This is low in harmonics, and thus produces a mellow, reed-like note. 



Sawtooth - bit 5 

When this is set to a 'V. the sawtooth waveform is selected for voice 
1 . This is rich in harmonics, and thus produces a brassy, trumpet-like 
note. 



Pulse - bit 6 

When this is set to a '1' the pulse waveform is selected for voice 1. 
The harmonic content of this waveform can be varied by altering the 
pulse width registers, producing a wide variety of different musical 
(and not so musical) sounds. 

Sweeping through the pulse widths can produce some dynamic 
effects, and can add a sense of motion to the sound. In the last of 
the example programs given earlier, breaking into the program and 
stopping it allows the noise voice to complete its cycle. This sounds 
remarkably like a train rushing past you. 

Rapidly altering from one pulse width to another can also be used to 
produce some interesting harmonic effects. 



Noise - bit 7 

When set to a '1', the noise waveform is selected for voice 1. This 
is a totally random signal which changes at the frequency of voice 
1, and thus is of most use in generating purely sound 'effects', like 
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missiles taking off, engines revving, or vast explosions. 

Tlie sound of waves lapping on the beach, or of a cymbal being rapidly 
hit, can be achieved by sweeping through the different frequencies. 

One of the above waveforms must be selected in order for voice 1 
to produce any audible sound, although that sound can be turned off 
without un-selecting a waveform, as the voice at the end is a function 
of the envelope generator only. 

Also, you cannot add more than one waveform together to produce 
something totally different from the above four. 

You are welcome to try, but the most likely result is that voice 1 will 
be switched off, and can only be reset by the test bit, or by setting 
pin 5 to low, or '0'. 

However, you certainly can combine a waveform with the ring 
modulation, synchronisation, and other features of this register. 



Attack/decay 

Bits 4 to 7 of this register, known as ATKO to ATK3, select an attack 
rate from to 15 for the voice 1 envelope generator. The attack rate 
determines how fast the output of voice 1 rises from zero to peak 
amplitude, when the envelope generator is triggered. 

Bits to 3 of this register, known as DCYO to DCY3, allow you to 
select a decay rate from to 1 5 for the envelope generator. The decay 
cycle comes after the attack cycle, and determines how quickly the 
output falls from the peak amplitude to some pre-selected intermediate 
level. 



Sustain/release 

Bits 4 to 7 of this register, known as STNO to STN3, allow you to select 
a sustain level from to 15 for the envelope generator for voice 1. 
The sustain cycle follows the decay cycle, and determines at what 
amplitude voice 1 will remain as long as the trigger bit remains set. 
This is all done on a linear basis, so, for example, a sustain level of 
8 would cause voice 1 to sustain at exactly half the peak amplitude 
reached by the attack cycle. 
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Bits to 3 of this register, l<nown as RLSO to RLS3, allow you to select 
a release rate from to 15 for the envelope generator of voice 1 . The 
release cycle follows the sustain cycle, and determines how rapidly 
the amplitude of voice 1 will fall from the sustain level to zero amplitude. 

The 16 release rates are identical to the decay rates, shown below. 



Envelope rates 

The cycling of this envelope generator can be altered at any point in 
the cycle by the gate bit, as the generator can be gated and released 
at any time, without restriction. 

So if the gate bit is set while half way through an attack cycle, the 
release cycle will begin immediately, and if the gate is reset again while 
the release cycle is still continuing, another attack cycle will start from 
whatever amplitude had been reached during release. 

As you might imagine, this gets a bit hairy after a while, but does allow 
quite complex effects to be achieved. 

Envelope Rates 



Value Attack Rate Decay/ Release Rate 

Dec Hex (Time/ Cycle) (Time/ Cycle) 







ms 


ms 








2 


6 


1 


1 


8 


24 


2 


2 


16 


48 


3 


3 


24 


72 


4 


4 


38 


114 


5 


5 


56 


168 


6 


6 


68 


204 


7 


7 


80 


240 


8 


8 


100 


300 


9 


9 


250 


750 


10 


A 


500 


1.5 sec 


11 


B 


800 


2.4 sec 


12 


C 


1 sec 


3 sec 


13 


D 


3 sec 


9 sec 


14 


E 


5 sec 


15 sec 


15 


F 


8 sec 


24 sec 
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Voices 2 and 3 



Voice 2 

The registers $07 to $0D control voice 2, and function in the same 
way as registers $00 to $06 for voice 1, with the following two 
exceptions: 

1 ) When SYNC is selected, it synchronises voice 2 with voice 1 . 

2) When RING MOD is selected, it replaces the triangle output of voice 
2 with the ring modulated combination of voices 2 and 1 . 



Voice 3 

The registers $0E to $14 control voice 3, and function in the same way 
as registers $00 to $06 for voice 1 , with the following two exceptions: 

1 ) When SYNC is selected, it synchronises voice 3 with voice 2. 

2) When RING MOD is selected, it replaces the triangle output of voice 
3 with the ring modulated combination of voices 3 and 2. 

Combining these two effects of modulation and synchronisation can 
produce some very odd results. You might like to try, for example, 
synchronising voice 2 with voice 1 , and ring-modulating voice 3 with 
voice 2, or some other weird and wonderful combination of the two. 

Filtering 



Freq Lo/Freq Hi - registers $15 and $16 

As bits 3 to 7 of register $15 are not used, these two combine together 
to form an 1 1 bit number which linearly controls the cutoff, or centre 
frequency of the programmable filter. The approximate cutoff 
frequency is obtained from the following equation: 

FCout = ((6.6E-8 + FCn * 1.28E-8)/C) Hz 

where FCn is the 1 1 bit number in the above two registers and C is 
the value of the two filter capacitors connected to pins 1 to 4, or in 
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our case 2200 picoFarads. 

This gives an approximate filter range of 30 Hz to 12 KHz, according to: 
FCout = (30 + FCn • 5.8) Hz 



Res/Filt - register $17 

Bits 4 to 7 of this register control the resonance of the filter, where 
resonance emphasises components of the frequency at the cutoff 
frequency of the filter, thus causing a sharper sound. 

There are 16 resonance settings ranging linearly from no resonance, 
when this is set to zero, or maximum resonance, when it is set to 15. 

As we saw earlier, using a very high resonance is the basis behind 
a wah-wah pedal, as used by rock guitarists. Pressing the pedal down 
will raise the cut-off frequency, and releasing the pedal will lower it 
again. Try it on the 64 and see, by playing a note with very high 
resonance, and varying the cut-off frequency. 

Bits to 3 determine which signals will be routed through the filter. 

Bit 0: When this is set to zero, voice 1 appears directly at the audio 
output, and there is no filtering effect. When set to 1, voice 1 is 
processed through the filter, and the harmonic content of voice 1 is 
altered according to the selected filter parameters. 

Bit 1 : Ditto for voice 2 

Bit 2: Ditto for voice 3 

Bit 3: Ditto for external audio input on pin 26. 



Mode/Vol - register $18 

We've already seen this one as the master volume control, but it 
actually does a whole lot more. 

Bits to 3 are the actual volume settings, and allow you to select an 
overall volume ranging from O (silence) to 15 (maximum). 

Bits 4 to 7 select various filter modes and output options. 
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Bit 4 - When set to a '1', the low pass output of the filter is selected 
and sent to the audio output. For a given filter input signal, all 
components of the frequency below the filter cutoff are passed through 
unaltered, while all those above the cutoff are attenuated at a rate of 
12 decibels per octave. This is not as sharp as most dedicated 
synthesisers (usually 24 decibels per octave), but the effect is still there. 

Bit 5 - As above for band pass output, but attenuation above and below 
the cutoff is at a rate of 6 decibels per octave. 

Bit 6 - As above for high pass output, and attenuation below the cutoff 
is back to 12 decibels per octave. 

Bit 7 - When this is set to 'V the output of voice 3 is disconnected 
from the direct audio path, so setting voice 3 to bypass the filter and 
setting 3 OFF to a '1 ' stops voice 3 from ever reaching the audio output. 
Thus voice 3 can be used for modulation purposes without any 
extraneous noises coming out and ruining the magnum opus. 

These filter modes are additive, in that one can combine a number 
of different modes at the same time. Playing with, and understanding, 
these frequency alterations is the key to getting the most out of the 
6581. 
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Further Sound 
Techniques 

Envelope shaping 

There are many terms in computing that bear more than passing 
resemblance to terms in the outside world, and envelope shaping 
immediately triggers off thoughts of caves hidden deep in a remote 
valley in Wales, where for years men have gathered and secretly folded 
envelopes. 

However, it's all a bit more mundane on the Commodore 64, and here 
envelope shaping is taken to mean designing and changing the shape 
of the musical envelope for the notes that you wish to play. 

All good synthesisers give you the ability to change envelope shapes, 
and SID is no exception. The only difference here between SID and 
a true synthesiser is that we have to do everything the long way, with 
a piece of software, rather than just sliding a few dials around on a desk. 

Before we talk about changing any envelopes however, it would be 
a good idea to define a few terms first of all, so that we know precisely 
what it is that we're altering. 



Musical notes 

A musical note goes through four distinct phases as it plays itself out. 
First there is a rise to the highest volume, and this is termed the attack 
of the note. 

This is sometimes followed by a decay to some intermediate level of 
volume, and this is indeed referred to as the decay of the note. 

The third phase involves keeping at this intermediate volume for a fixed 
period of time, and this is known as the sustain period of the note. 

Finally, the note has to decay away to silence again, and we term this 
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the release period of the note. 

Putting the four together, in a sequence usually referred to as ADSR 
for the four initial letters of the words involved, gives us the envelope 
of the note as played by the 64. 

This is where synthesisers differ from musical instruments, in that 
instruments characteristically are unable to alter the envelope of the 
note that they are playing, at least to any great extent. They don't 
have to: they are musical instruments precisely because they produce 
the notes that they do. 

Synthesisers, on the other hand, are always having to change envelope 
shapes of notes as they seek to emulate other sounds, or indeed create 
new ones. 

Envelope shapes 

A typical envelope shape for a musical instrument might look 
something like this: 




1 1 mirror-image of the top) 



Here we see all four phases of the note looking roughly the same in 
duration, and by altering one or all four of these characteristics we 
can dramatically alter the timbre of the note that is being played. 
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It's good to see on a relatively inexpensive synthesiser like the SID 
chip that we produce a linear slope for the attack period, but 
exponential ones for the delay and release. These are built into SID 
and you cannot alter the way in which they behave. Nevertheless it 
is good to see that both of these curves are in the chip: most 
synthesisers use either one or the other, they certainly don't offer you 
both. 



Waveforms 

However, we can alter a lot more about a note than merely the shape 
of its envelope. On the 64 we have control over the waveform of the 
note as well, and the four waveforms, as we've seen, are termed 
triangle, sawtooth, pulse and noise. 

Graphically, they might look something like this: 




This is a sine wave, and all waveforms can be broken down into a 
number of different sine waves, all operating at different frequencies. 

The triangular waveform looks like this: 
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and a sawtooth: 




and a pulse wave: 




and finally the noise waveform, which is totally random, but might 
look something like this: 




The following short program should serve to demonstrate the principles 
involved. 
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Attack/decay/sustain/release 



This program is fairly straightforward, but we'll go through it in detail 
anyway. 

It allows you to listen to any single note that the Commodore 64 is 
capable of playing, before we start filtering, modulating or 
synchronising other notes. 

This is done just by getting yoli to press a few keys, and see the 
differences made by everything that the SID chip is capable of altering. 

The screen display is nothing complicated. Along the top you'll see 
the words ATT (for attack), DEC (for decay), SUS (for sustain), REL 
(for release), FH (which stands for the high frequency), FL (for the 
low frequency), and finally WF, which indicates the waveform that 
is currently being used. 

By pressing any of the keys 'A', 'D', 'S' or 'R' you will change 
respectively the attack, decay, sustain or release of the note, and the 
program will then play the new note. 

The change in the value will also be shown on the screen for reference. 

Pressing 'W allows you to step through the four waveforms, and again 
this change will be shown on the screen and the note played. 

To alter the frequency of the note, we have a further four keys to play 
with. Pressing the up-arrow key will increase the high frequency of 
the note, pressing the '*' key will decrease it. Similarly for the low 
frequency of the note, pressing ' + ' will increase it by one, and pressing 
' - ' will decrease it by one. 

Again, all these changes will be reflected up on the screen. 



Program notes 

Line 10 : set border, screen and character colours. 
Line 20 : declare variable V to be start of video chip. 
Line 30 : declare more variables, and GOTO 220. 
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Line 40 : turn volume to maximum. 
Lines 50-60 : select ADSR of note. 
Line 70 : check for pulse wave selection. 
Lines 80-90 : select frequency of note. 
Line 100 : select waveform. 

Lines 110-210 : wave for keyboard input and respond accordingly. 

Lines 220-230 : print up screen display. 

Line 240 : update information on screen. 

Line 250 : turn it all off before playing new note. 

Line 280 : back to start of loop again. 



10 POKE 5328 1,0: POKE 53280, 9: PRINT" CCLR , YEL3 " 
20 V=54272 

30 WF=2:A=0:D=9:S=0:R=0:FL=0!FH=12:G0T0 220 
40 POKE V+24,15 
50 POKE V+5,A«16+D 
60 POKE V+6,S«16+R 

70 I FWF=4THENP0KEV+3 , O : POKEV+2 , 255 

80 POKE V+1 ,FH 

90 POKE V,FL 

100 POKE V+4,WF*16+1 

110 BETA*: 

1 20 I FA*= " + " THENFL=FL+ 1 : I FFL >255THENFL=255 

1 30 I F A*= " " THENFH=FH+ 1 s I FFH >255THENFH=255 

140 I F A*= " A " THENA= A+ 1 : I F A= 1 6THENA=0 

1 50 I FA*= " D " THEND=D+ 1 : I FD= 1 6THEND=0 

160 I F A*= " S " THENS=S+ 1 : I FS= 1 6THENS=0 

170 I F A*= " R " THENR=R+ 1 : I FR= 1 6THENR=0 

1 80 I FA*= " » " THENFH=FH- 1 : I FFH< 0THENFH=0 

1 90 I FA*= '■ Ul " THENWF=WF*2 : I FWF= 1 6THENWF= 1 

200 I FA*= " - •■ THENFL=FL- 1 : I FFL< 0THENFL=0 

210 IFA*=""THEN110 

220 PRINT" C HOME 3 ATT DEC SUS REL FH FL WF" 
230 PRINT: PRINT" 

tl 

240 PR I NT " C HOME , 2CD 3 " AT AB ( 4 ) DTAB ( 8 > ST AB ( 1 2 ) RTAB ( 1 4 
) FHTAB ( 18) FLTAB (23) WF*16+1 
250 FORI=OT023:POKE V+I,0:NEXT 
280 B0T040 
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Notes 



A straightforward program, but at least it illustrates the concepts 
involved. 

No graphics symbols are used, since this program is primarily 
concerned with sound rather than graphics, although our usual friend 
the up-arrow key makes a mess of things in line 120! 

And more techniques 

If you type that program in and run it you will soon appreciate that 
there is an awful lot that you can do with your Commodore 64 without 
ever having to resort to filtering, ring modulation, synchronisation and 
the like. 

The Basic settings for attack, decay, sustain and release can ail be 
altered very easily to produce a wide range of different sounds, and 
varying the waveforms along with this can also produce some good 
effects. 

However, if we really wish to start turning the 64 into a synthesiser, 
then we'll have to look a little bit further, so let's start with a look at 
filtering. 



Filtering 

We've already stated that there are three main types of filter on the 
64, and these are the low pass, high pass and band pass, which let 
through various frequencies in the tones but dismiss others according 
to various parameters. 

We can combine a high pass and a low pass filter together to get what 
is termed a notch filter, and with these four factors in mind, we can 
also alter the resonance of the filter. A high resonance gives a very 
intense effect, while a low resonance is altogether smoother. 

By setting the resonance to be whatever we want, we can then set 
up various types of filter and, by altering the cutoff frequency so that 
differing frequencies come through whilst a note is playing, just one 
note can produce some interesting noises. 
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And although we haven't got one of the features of some very 
expensive synthesisers, namely an envelope generator that controls 
the filter cutoff so that it can automatically rise and fall while the note 
is playing, we can always get round this with a suitable piece of 
software. 

Finally, each voice can either go through the filter or by pass it 
completely and go straight to the audio output. 

The registers to look for are numbers 21 , 22 and 23, as these are the 
ones that control the cutoff frequency (21 and 22) and the resonance 
(23). 

If bit of register 23 is set to a 1 (i.e. you POKE 
V + 23,PEEK(V + 23)OR1) then voice 1 will be routed through the filter. 
POKEing it with 0R2 will set voice 2 through the filter, and POKEing 
it with 0R4 will put voice 3 through the filter. 

On a scale of 1 to 15, the resonance is then selected by deciding on 
what sort of resonance you want (15 being the maximum), and then 
POKEing the register with your resonance value times 16, plus of course 
the value for whatever voice, if any, you want to route through. 

So, if you wanted maximum resonance and only voice 1 to go through 
the filter, you would have to POKE V + 23 with 15 times 16 plus 1, 
or 241. 

The type of filter that is used depends on the content of register V + 24. 
Normally just set to 1 5 to control the volume, the top four bits of this 
register can be altered also to produce one of the four filter types. 

Setting bit 4 (POKE it with 15 plus 16) selects low pass, bit 5 (POKE 
it with 15 plus 32) band pass, and bit 6 (POKE it with 15 plus 64) high 
pass. POKEing the register with 15 plus 128, i.e. setting bit 7, stops 
voice 3 from reaching any audio output, although it is still actively 
working away. 

If we stop it going through the filter as well, then voice 3 never produces 
any sound at all, but it can still be used for modulating other voices 
without producing any odd noises of its own in the background. 

Finally, to select the cutoff frequency you'll have to refer to the section 
on that in chapter eight! 

To illustrate graphically what's going on, here are a few illustrations 
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which point out just some of the effects that SID can achieve. 
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By careful adjustment of any or all of the parameters, the power of 
SID will slowly begin to become apparent to you. Even if you only 
produce noise at first, a noise is better than total silence. Well, usually! 



Ring modulation and synchronisation 

These two are very closely related, and refer to the way in which 
different voices interact with each other. 

We can set any voice to be modulated with any other voice, although 
we are limited when it comes to choosing which voice will actually 
do the modulating. 

Similarly we can synchronise any voice with any other voice, but again 
we are limited in which voice will be doing the synchronising. Still, 
if you don't suffer from the apparent dislike of voice 3 which some 
people seem to do for some totally irrational reason (it is actually the 
most powerful of the three, in that it can control more things that either 
of the other two), these apparent drawbacks shouldn't present you 
with any problems. 
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It is best to let you find out about these two features for yourself, since 
there isn't much else to say about them really. They just do what they 
do, and we've already told you which registers to set to get these 
features going in the previous chapter. So, it's down to the keyboard 
and a few programs which all produce some very odd noises, but do 
show what happens when you, for instance, modulate one voice with 
another one and then synchronise it with a third! 

10 V=54272 

20 POKE V+24,15 

30 POKE V+5,9:POKE V+ 19 , 255: POKE V+12,36 
40 POKE V+6,0:P0KE V+20,70:P0KE V+13,36 

46 POKE V+3,A:P0KE V+10,15 

47 POKE V+2,20:P0KE V+9,20 

50 POKE V+4,67:POKE V+1B,21:P0KE V+11,35 
60 POKE V+1 , 10+A:P0KE V+8,15:P0KE V+15,20 
70 A=A+1: IFA>20THENA=0 
80 GOTO 30 

97 FORI=OT024:POKEV+I .0:NEXT 



10 V=54272 

20 POKE V+24,15 

30 POKE V+5,9:PQKE V+ 19 , 255: POKE V+12,36 
40 POKE V+6,0:P0KE V+20,70:P0KE V+1 3, 36 

46 POKE V+3,A:POKE V+10,15 

47 POKE V+2,20:P0KE V+9,20 

50 POKE V+4,67:P0KE V+18,23:POKE V+11,35 

60 POKE V+1,10+A:P0KE V+8 ,25-A: POKE V+15,50-A 

70 A=A+I : IFA>20THENA=0 

80 GOTO 30 

97 F0RI=0T024:P0KEV+I,0:NEXT 



10 V=54272 

20 POKE V+24,15 

30 POKE V+5,9:POKE V+ 1 9 , 255 : POKE V+12,36 
40 POKE V+6,0:P0KE V+20,70:POKE V+1 3, 36 

46 POKE V+3,20:P0KE V+10,15 

47 POKE V+2,20:P0KE V+9,20 

50 POKE V+4,71:POKE V+18,23:POKE V+11,39 
60 POKE V+1, 10+ A: POKE V+8, 25- A: POKE V+1 5, 10 
70 A=A+1: IFA>20THENA=0 
80 GOTO 30 

97 F0RI=0T024:P0KEV+I ,0:NEXT 
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Only by experimenting with all the registers will you get the most out 
of SID. 



Pulse widths 

This comes under more or less the same category as synchronisation, 
since we can tell you what registers to alter to set it in motion, and 
warn you that not setting pulse widths when choosing the pulse 
waveform (and vice versa) will cause a few problems, but there's not 
a lot else to say about it. 

It simply modifies the wave pattern of the note being played, and thus 
causes a different type of note to be produced. 

One of the previous example programs did this, by steadily increasing 
the value stored in the pulse-high register. 

It's up to you to find out what values for pulse width suit the type 
of sounds that you want to make, so again experimentation is the 
answer. 



Musical instruments 

What, a chapter about synthesised music that dares to mention musical 
instruments?! Well, since one of the primary functions of a synthesiser 
is to emulate musical instruments, we might as well try to emulate 
a few. 

Illustrated below are the ADSR diagrams for just a few instruments 
that you might like to try your hand at, followed by a few suggested 
settings for the ADSR parameters themselves. 

Also important, apart from setting the parameters and getting the 
envelope right, is the key at which you play the instrument, and the 
waveform in which it is played, it's no use attempting to play a passable 
impersonation of a flute with a sawtooth wave: the sound will just 
not come out right at all! 

As usual, experimentation is the key. 
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VOLUME 






Possible settings for musical Instruments 



Instrument 


Att/Dec 


Sus/Rel 


Waveform Pulse 


Piano 


9 





Pulse Lo = 255 


Harpsichord 


9 





Sawtooth — 


Trumpet 


96 





Sawtooth — 


Flute 


96 





Triangle — 


Xylophone 


9 





Triangle — 


Organ 


9 





Triangle — 


Accordian 


102 


240 


Triangle — 
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And now for a few more programs. 

Advanced Keyboard 

This is a variation on the program listed earlier which turned the 
keyboard into a musical one. This will actually give you some of the 
power of a synthesiser, although it certainly doesn't go as far as some 
of the more successful commercially available musical synthesisers 
(Romik and Quicksilva, for example, have produced good packages 
for the 64). 

Still, it should get you on the right track, and so here goes, with our 
usual program notes. 

Program notes 

Line 5 : declare variable V, and turn voice 1 on (all voices are referenced 
as VO), as well as setting the octave number. 

Line 15 : go to subroutine to read all the musical data in. 

Line 20 : go to subroutine to print on-screen instructions and keyboard. 



Line 


25 : 


: check for key press and shift/logo 


Line 


28 ; 


; if not a special key, then 85. 


Line 


30 ; 


; if DEL key pressed, switch off voice 1. 


Line 


35 : 


: if CLR key pressed, switch off voice 2. 


Line 


40 : 


: if pound sign pressed, switch off voice number 3. 


Line 


45 : 


; if '-' pressed, toggle volume. 


Line 


50 : 


: volume back to normal again. 


Line 


55 : 


: if ' + ' pressed then 420. 


Line 


60 : 


; if '0' pressed then toggle ring modulation and go to 450. 


Line 


65 : 


: if '@' pressed, then step down an octave 
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Line 70 : if up arrow pressed, then step up an octave. 

Line 75 : if '*' pressed tlien toggle fake glissando mode. 

Line 80 : if ' = ' pressed, then increase fake glissando speed. 

Line 85 : if it's all the same as last time then don't do anything. 

Line 90 : get frequency relating to key pressed. 

Line 95 : if no note then loop back again. 

Line 100 : if numeric key pressed, then 225. 

Line 105 : adjust frequency if necessary. 

Line 110 : check for fake glissando. 

Line 115 : if return pressed, then 250. 

Lines 120-125 : if shift or logo pressed, adjust frequency accordingly. 

Lines 130-135 : calculate frequency. 

Lines 140-180 : play note for relevant voices. 

Line 185 : remember old frequency. 

Lines 190-215 : turn voices off. 

Lines 225-240 : turn on/off relevant voices. 

Lines 250-300 : on-screen display for altering voices. 

Lines 315-340 : which voice. 

Lines 345-375 : to which waveform. 

Lines 380-41 5 : rest of alterations. 

Lines 420-445 : turn on ring modulation. 

Lines 450-500 : fake glissando effect. 

Lines 505-590 : on-screen instructions. 
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Lines 595-715 : data and set-up voices. 



5 V=54272: VO(0)=l:OC=4 

10 REM FROM AN ORIGINAL IDEA BY RICHARD FRANKLIN 
15 BOSUB595 
20 GDSUB505 

25 K=PEEK < 1 97 ) : PS=PEEK ( 653 ) 

28 I FK< 35AND ( K=36QRK=370RK=390RK=47 ) THEN85 

30 I FK=OTHENPOKE V , O : PQKEV+ 1 , : 60X025 

35 I FK=5 1 THENPOKEV+7 , O : POKE V+8 , O : B0T025 

40 I FK=48THENP0KE V+ 14,0: POKEV+ 1 5 . O : G0T025 

45 I FK=43THENR= 1 -R : POKEV+24 , R* 1 5 : G0T025 

50 POKE V+24,15 

55 IFK=40THEN420 

60 IFK=35THENRM=1-RM:G0T0 450 

65 I FK=46THENOC=OC / 2 : I FOC< 1 THENOC= 1 : G0T025 

70 I FK=54THENOC=OC»2 : I FQC >64THEN0C=64 : G0T025 

75 IFK=49THENGL=1-GL 

80 I FK=53THENGR=GR+ 1 : I FGR >8THENGR=0 

85 IFK=LKANDPS=LSTHEN25 

90 F=N(K) ;LK=K:LS=PS 

95 IF F=0 THEN 25 

lOO IF (F>0ANDF<9)THEN 225 

105 F=F«<4/0C) 

110 I FGLANDGR >OANDZ< >FANDVO ( ) = 1 THEN455 
115 IF K=l THEN 250 

120 IF PS=1 THEN F=INT (F*2^ ( 1 / 12) ) 
125 IF PS=2 THEN F=INT (F/2'^ ( 1 / 12) ) 
130 Fl=INT(F/256) 
135 F2=F-F 1*256 
140 FOR 1=0 TO 2 

145 IF VO ( I > =OTHENPOKE V+I»7 , 0: POKEV+I*7+l , O: GOTOl 
80 

150 POKE V+ I #7+4,0 

155 POKE V+I*7+4,W(I)*16+RM(I)*4+SY(I)*2+1 

160 IFRM=lTHENPOKEV+4,W(0)«16+4 

165 POKE V+I»7,F2 

170 IFF1>255THEN180 

175 POKE V+I*7+1.F1 

180 NEXTI 

185 Z=F 

190 GOTO 25 

195 FOR 1=0 TO 2 

200 POKE V+I*7,0 

205 POKE V+ 1*7+ 1,0 

210 POKE V+I*7+4,W<I)*16 

215 NEXT I 

220 GOTO 25 

225 F=F-1 

230 FOR 1=0 TO 2 
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235 VO ( I ) = < F AND2'^ I ) / 2- I 
240 NEXT I 
245 GOTO 25 

250 POKE 53280, 14: POKE 53281 , 1 : PRINT" CPUR3 " 

255 PRINT "CCLRD VOICE 1 l/OICE 2 VO 

ICE 3" 

260 F0RI=1T010:6ETKY*:NEXT 

265 PRINT "CCDJHftVEFORM"; TAB(12) ; W*(0) ; TAB(22) ; W*( 
1) ; TAB (32) ; W*(2) 

270 PRINT "/ITT/Z7EC";TAB<13) ;AD(0> ;TAB(23) sAD(l) ;TA 
B<32) ; AD<2) 

275 PRINT "SUS/fiEL";TAB(13) ;SR<0) ;TAB(23) ;SR(1) ;TA 
B(32) ;SR(2) 

280 PRINT "PULSE HI " ; TAB ( 13) ; PH (O) ; TAB (23) ; PH ( 1 ) ; T 
AB(32) ;PH(2) 

285 PRINT "PULSE Z.O" ; TAB ( 13) ; PL (O) ; TAB (23) ; PL ( 1 ) ; T 
AB(32) ;PL(2) 

290 PRINT "RING MOD" ; TAB ( 13) ; RM (O) ; TAB (23) ; RM ( 1 ) ; T 
AB(32) ;RM(2) 

295 PRINT "SYNC " ; TAB ( 13) ; SY (0> ; TAB (23) ; SY ( 1 ) ; T 

AB(32) ;SY(2) 

300 PRINT" [CD 3 OO YOU WANT TO CHANGE ANY VALUES (.Y/ 
W)?" 

305 GETCH*: IFCH*="N"THEN20 
310 IFCH*<>"Y"THEN305 

315 PRINT" CCD3MHICH VOICE (1, 2 OR 3)7" 
320 GETVC* : I FVC*= " " THEN320 

325 IFVC*="1"THENPRINT"I/0ICE 1":VC=0:G0TP 345 
330 IFVC*="2"THENPRINT"I/0ICE 2":VC=1:GQT0 345 
335 IFVC*="3"THENPRINT"l/OICE 3":VC=25GOTO 345 
340 GOTO 320 

345 PRINT "CCD3WAVEF0RM (T, S, P, OR W)?" 
350 GETWF*: IFWF*=""THEN 350 

355 I FWF*= " T " THENPR I NT " TR I ANGLE ":W(VC)=l!W*(VC)="7 
R I ANGLE": GOTO 380 

360 I FWF*= " S " THENPR I NT " SAWTOOTH " : W ( VC ) =2 : W* ( VC ) = " S 
AWTOOTH":GOTO 380 

365 I FWF*= " P " THENPR I NT " PULSE " : W ( VC ) =4 : W* ( VC ) = " PULS 
E":60T0 380 

370 I FWF*= " N " THENPR I NT " «0 I SE " : W ( VC ) =8 : W* ( VC ) = " «0 I S 
E":GOTO 380 
375 GOTO 350 

380 INPUT "/1TTACK/0ECAY" ; AD ( VC) : IFAD (VC) <OORAD (VC) 
>255THENPRINT"C2CU3":G0T0 380 

385 I NPUT " SUSTA IN/ RELEASE " 5 SR ( VC) : I FSR ( VC X OORSR ( 
VC ) >255THENPR I NT " C 2CU D " : GOTO 385 

390 I NPUT " PULSE H I " s PH ( VC ) : I FPH ( VC )< OORPH ( VC ) >255 
THENPR I NT " C 2CU 3 " : GOTO 390 

395 INPUT "PULSE tl " ; PL (VC) : IFPL (VCXOORPL (VC) >255 
THENPR I NT " C 2CU 3 " : GOTO 395 

400 INPUT "RING «0D" ; RM ( VC) : IFRM (VCXOORRM ( VC) >15T 
HENPR I NT " C 2CU 3 " : GOTO 400 
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405 I NPUT ■' SYNC " ; SY ( VC > : I FSY < VC >< OORSY ( VC ) > 1 5THENP 

RINT"C2CU]"!B0Ta 405 

410 GOTO 250 

415 RETURN 

420 FORI=OT02 

425 IFVD(l)=OTHEN435 

430 P0KEV+I»7+4,W(I)»16+2 

435 NEXTI 

440 I FPEEK (1 97 ) =64THEN420 
445 GaT025 

450 W (O) =1 : POKEV+4 , W (O) *16+5! V (2) =1 : BOT025 
455 I F Z >FTHENFR=- 1 s GOT0465 
460 FR=1 

465 F0RI=ZT0FSTEPFR*GR»64 
470 F1=INT (1/256) 
475 F2=I-F1*256 

480 IFRM=lTHENP0KEV+4,W(0)*16+5 

485 POKE V,F2 

490 I FF 1 >2550RF 1 < 0THEN500 

495 POKE V+1,F1 

500 NEXTI: Z=I:G0T0130 

505 POKE 53280,8: POKE 5328 1,0: POKE 53272,23 

510 PRINT" CYEL,CLR,RVS 3 «««*»«*»» SING->l-/.0NG->t-6 

4 *«***««««" 

515 PRINT" CRVS 3 »***»*»♦»♦ BY SID »*»»* 

«*«*«" 

520 PRINT" PLAY USING THE KEYS ERVS3Q W E R T Y U 
I" 

525 PRINT" CCD] CRVS3A S D F G 

H J K" 

530 PRINT" [CD3 CRVS3Z X C V B 

N M ," 

535 PRINT" CCD 3 TO COVER THREE OCTAVES." 

540 PRINT" CCD3 USE THE CRVS3SHIFTCOFF3 KEY FOR A S 

HARP," 

545 PRINT" CRVS3CBMCOFF3 KEY FOR A FLAT. 

II 

550 PRINT" CCD3ySE THE KEYS CRVS30 12 3 4 5 6 7COF 
F3 TO" 

555 PR I NT "CHOOSE ANY COMBINATION OF THE THREE" 

560 PR I NT "VOICES. THEY ARE SET UP BY USING BINARY" 

565 PR INT "ARITHMETIC. THEREFORE, VOICE 1 IS TURNED 
*■ . 

570 PR I NT "ON USING KEY 1, VOICE 1 AND 3 ARE TURNED 

" f 

575 PRINT"ON USING KEY 5,ETC. " 

580 PR I NT "CCD 3 USE THE CRVS3RETURNCOFF3 KEY TO CHAN 
BE THE VALUES" 

585 PR I NT "OF THE VOICES. C HOME 3 " 
590 RETURN 
595 DIM N<64) 
600 FOR I=0 TO 64 
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605 READ A 
610 N(I)=A 
615 NEXT I 

620 DATA ,-1,0,0,0,0,0,0 

625 DATA 4,9854,4389,5,2195,4927 

630 DATA 11060,0,6,11718,5530,7,2765,5859 

635 DATA 1 3 1 53 , 2463 ,8,14764, 6577 , O , 3288 , 7382 

640 DATA 16572,2930,0,17557,8286,1,4143,8779 

645 DATA 0,3691,0,0,0,0,0,0,0,4389,0,0,0 

650 DATA 0,0,0,0,0,2,0,0,3,0 

655 DATA 0,8779,0,0 

660 FOR 1=0 TO 2 

665 READ W ( I > , AD ( I > ,SR ( I > ,PH ( I > ,PL ( I ) ,M« ( I ) ,RM ( I ) , 

SY(I) 

670 NEXT 

675 DATA 1 , 102, 108,0,0, "TRIANSLE" ,0,0 
680 DATA 2, 96, 108, 0,0, "SAWTOOTH", 0,0 
685 DATA 4,9,0,0,255, "PULSE" ,0,0 
690 F0RI=0T02 

695 POKE V+7*I+4,W<I)+RM(I)+SY(1) 

700 POKE V+7*I+5,AD(I) :POKE V+7»I+6,SR ( I ) : POKE V+7 
*I+3,PH(I> sPOKE V+7*I+2,PL(I) 
705 NEXT 

710 POKE V+24,15 
715 RETURN 



Notes 

As usual, the up-arrow key causes us problems In a few places, notably 
lines 120,125 and 235. 

The letters in italics are only so because the program has been written 
in lower case mode, and should be entered as shifted letters when 
you type the program in. 

There are no graphics characters used, so there shouldn't be any great 
problems in deciphering the rest of the listing. 

Of course, it isn't a synthesiser, but it does introduce some of the 
concepts involved in writing one (which should really be done in 
machine code), and so that is why it is here. 

Deathtrap 

A variation on an old friend, this has been re-written to take into 
account some of the features we've covered in this book. 
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The program uses user-defined graphics to display all the characters, 
and there is also a variety of sound, ranging from rich base notes to 
explosions, with a motor-bike type sound that has been made by 
playing about with pulse widths and altering them according to the 
state of the game. 

In the game you control a little shape that wanders about the screen, 
using the 'A' key to move left, the 'D' key to move right, the '1' key 
to move up, and the 'M' key to move down. Pressing any other key 
will halt the game and give you time to think of a strategy. Just press 
one of the movement keys to get going again. 

As your shape wonders about, he leaves behind a trail on the screen. 
You must not bump into the trail, as this is the end of your life and 
the end of the game. To make it more interesting, the computer is 
also controlling a different shape that is moving about the screen at 
the same time as you are. This too leaves a trail behind it, and needless 
to say you can't bump into that either. 

The first player who manages to get his opponent to crash into either 
of the trails wins the game, and a running score is kept throughout. 

Obviously the tactic to use is to trap your opponent in a box, but this 
is frequently easier said than done. 



Program notes 

Line 5 : set screen, border, and print a little message. 
Line 10 : go to routine to set up characters. 
Line 15 : and then print the screen instructions. 
Lines 20-25 : place the opponents on the screen. 
Line 30 : set up sound. 

Line 35 : select direction of computer's move, and set you going 
downwards. 

Lines 40-65 : detect change of direction. 

Lines 70-100 : moving down. 
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Lines 105-135 : and moving left. 

Lines 140-170 : this time moving to the right. 

Lines 175-205 : and finally moving up the screen. 

Lines 210-265 : musical introduction. 

Line 270 : you lose! 

Lines 275-280 : select direction of computer's move. 
Line 282 : update noise and play if necessary. 
Lines 285-310 : move computer's piece. 
Line 315 : ohohl Can't go that way. 
Line 320 : you win! 

Lines 325-360 : update noise and play. 

Lines 365-395 : computer panicking as it gets boxed in. 

Lines 400-440 : explosion as game ends. 

Lines 445-475 : update score and next game. 

Lines 480-585 : intro and set up game and screen. 

Lines 590-660 : define and set up user defined graphics characters. 

Line 665 : data for intro tune. 



5 POKE53280,9:POKE 53281 ,0: PRINT" CCLR,YEL 3 JUST HAN 

G ON A LITTLE MOMENT, PLEASE ! 

10 G0SUB590 
15 G0T0480 

20 I =500 : POKE 50 1 76+ I , 1 28 : POKE55296+ I , 6 
25 J=250:P0KE 501 76+J , 129: POKE 55296+J,5 
30 GOSUB 325 

35 Q»="UDLR"!W*=MID*(Q*,RND(.4>»3+1 ,1) : 60T070 
40 A=PEEK(203) 
45 IF A=36THEN70 
50 IF A=10THEN105 
55 IF A=18THEN140 
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60 IF A=33THEN175 
65 BOTO 40 

70 1F1>960THENI=I-1000 
75 F0RD=1T0DE!NEXT 

80 IF PEEK (50176+1+40)046 THEN 270 

85 1=1+40 :POKE50 176+1, 128: POKE 55296+1,6 

90 GOSUB 280 

95 A=PEEK (203) : IFA=64THEN70 
lOO G0T045 

105 IF INT(I/40)=I/40THENI=I+40 
110 IF PEEK (50176+1-1)046 THEN 270 
115 FORD=lTODEiNEXT 

120 1=1-1 : P0KE50176+I , 128: POKE 55296+1,6 
125 GOSUB 280 

130 A=PEEK(203) s IFA=64THEN105 
135 B0T045 

140 IF INT (( 1-39) /40>=( 1-39) /40THENI=I-40 
145 FORD=lTODE:NEXT 

150 IF PEEK (50176+1+1)046 THEN 270 
155 I=I+1:P0KE50176+I , 128: P0KE55296+I ,6 
160 GOSUB 280 

165 A=PEEK(203) : IFA=64THEN140 

170 A=PEEK(203) :GOT045 

175 IFI<40THENI=I+1000 

180 IF PEEK (50176+1-40)046 THEN 270 

185 FaRD=lTODE:NEXT 

1 90 I = I -40 ; P0KE50 1 76+ I , 1 28 : P0KE55296+ I , 6 
195 GOSUB 280 

200 A-PEEK(203) : IFA=64THEN175 
205 G0T045 
210 V=54272 

215 POKE V+14,0:P0KE V+4,0: POKEV+5,0: P0KEV+6,0 

220 POKE V+5,190 

225 POKE V+6,0 

230 POKE V+24,15 

235 READA,B 

240 F0RI=1T0500:NEXT 

245 IFA=OTHENRETURN 

250 POKE V+4,33 

255 POKE V+3,l:POKE V+2,1 

260 POKE V+1,A:P0KE V,B 

265 60T0235 

270 PRINT"CCLR,GRN3T0USH! ":C=C+1:G0T0 400 
275 Q*="UDLR":W*=MID*(Q*,RND(.4)*3+1,1) : 
2SO K=INT(RND(.5)*10) : IFK>8THEN275 
282 XY=XY+1 : IFXY/25=INT (XY/25) THEN60SUB352 
285 Q=J 

290 IFW*="U"THENJ=J-40: IFJ<0THENJ=J+1000 

295 IFW*="D"THENJ=J+40: IFJ>1000THENJ=J-1000 

300 IF W«="L"THENJ=J-1: IF INT ( ( J+1 ) /40) = ( J+1 ) /40 T 

HEN J=J+40 

305 IF W*="R"TJ«NJ=a+l: IF INT ( ( J-40) /40) = ( J-40) /40 ' 
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THEN J=J-40 

310 IF PEEK(50176+J)=46 THEN P0KE50176+J , 129: POKE 
55296+ J ,5: 8=0: RETURN 
315 GOTO 365 

320 PR I NT " C CLR , GRN 3 GRRR . . . " : H=H+ 1 : GOTO 400 
325 V=54272:Z=0 

330 F0RL=0T024:P0KE V+L,0:NEXT 

335 POKE V+3,SN 

340 POKE V+5,40:P0KE V+6,146 

345 POKE V+24,15 

350 POKE V+4,65 

352 Z=Z+10 

355 POKEV+l,l:POKEV,Z 
360 RETURN 
365 P*=W* 

370 I FP*= " U " THENW*= " D " : J =Q : G0TD285 
375 IFP*="D"THENW*="L" : J=Q: G0T02a5 
380 I FP*= " L " THENW*= " R " : J =D : G0TD285 
385 IFP*="R"THENS=S+1 
390 IFS=4THENS=0: GaT0320 
395 W*="U": J=Q:GGT0285 
400 POKE 53280, 12: POKE 53281.1 
405 V=54272 

410 F0RL=0T024:P0KE V+L.O:NEXT 
415 POKE V+5,17:POKE V+6,130 
420 POKE V+24,15 
425 POKE V+4,129 
430 POKE V+1,3 

435 F0RP=250T00STEP-1:P0KE V , P: F0RPP=1T05; NEXTPP.P 
440 F0RL=0T024:P0KE V+L,0:NEXT 

445 PRINT"C2CD]SC0RE NOW STANDS AT YOU ";H;: PRINT: 

PR I NT "AND THE COMPUTER ";C" 

450 F0RI=1T01 0:GETF*;NEXT 

455 PR I NT "CCD 3 ANOTHER GAME <Y OR N) " 

460 GET F*:IFF*="" THEN 460 

465 IF F$:="Y"THEN520 

470 IFF*="N" THEN PRINT" C CLR] BYE" : FORI =OT024: POKE 
V+I ,0:NEXT:END 
475 GOTO 460 

480 PRINT" C CLR, YEL 3 WELCOME TO THE GAME OF DEATHTRA 

P" 

485 GOSUB 21 O 

490 PRINT" CCD 3 THE OBJECT OF THE GAME IS TO TRAP TH 

E " 

495 PR I NT "COMPUTER SO THAT IT CAN'T MOVE" 

500 PR I NT "CCD 3 OF COURSE, IT IS TRYING TO DO THE SA 

ME" 

505 PR I NT "TO YOU!!" 

510 PRINT" CCD 3 PRESS M TO MOVE DOWN. A LEFT, D RIGH 

T, " 

515 PRINT"AND I UP" 

520 PR I NT "CCD 3 DO YOU WANT A FAST, MEDIUM OR SLOW G 
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AME" 

525 P0KE53280.9:P0KE 53281,0 
530 PRINT"PRESS F, M, OR S" 
535 GETD*: IFD*=""THEN 535 

540 IF D*="F"THENPRII\!T"FAST! ":DE=0:SN=B:S0T0560 
545 IF D*="M" THENPR I NT " MED I UM ! " : DE= 1 25 : SN= 1 O : G0T05 

60 

550 IF D*="S"THENPRINT"SLOW! ■'iDE=250:SN=14!B0T0 56 



555 GOTO 535 

560 PRINT" CCD 3 PRESS SPACE BAR TO START" 

565 SETSD*! 1FSD*<>" "THEN 565 

570 PRINT"ECLR,YEL3": 

575 FOR I =0T0998 : PR I NT " . " ; 

580 NEXT: P0KE51 175, 46! POKE 56295,7 

585 SOTO 20 

590 POKE 56333,127 

595 POKE 1,51 

600 F0RX=0T01023 

605 POKE 53248+ X, PEEK ( 53248+ X) 

610 NEXT 

615 F0RX=0T015 

620 RE ADA : P0KE54272+ X , A 

625 NEXT 

630 POKE 1,55 

635 POKE 56333,129 

640 POKE 648,196 

645 POKE 56576,4 

650 POKE 53272,21 

655 DATA 24.90,102,24,24,36,36,36,66,36,189,126,60 
,60,66, 129 
660 RETURN 

665 DATA4,208,5, 103,4,73,2,6,3,54,0,0 



Notes 

Amazingly enough, there are no graphics characters used, not even 
an up-arrow, and since the program is entirely in upper case, we haven't 
got any strange italicised characters either. 

So there should be no problem entering this one. 
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Adding 
Commands to Basic 

Introduction 

In this chapter we'll be looking at some of the ways in which you can 
enhance the existing Basic in your Commodore 64. Although the 
method used in this chapter is by no means the only way in which 
this can be done, it at least has the virtue of working! 

There are a number of routines presented here as well, and these could 
readily be incorporated into one complete package, instead of 
consisting of a lot of separate little programs as they do now. 

Having read this chapter you should be in a position to devise some 
new commands of your own, and insert these into whatever spare 
memory space you see fit. Here most of the routines have been written 
to start at location 49152 (or $C000), since this is a conveniently empty 
block of memory on the Commodore 64 at power on. 

The commands are presented in the form of machine code 
disassemblies, in order to give you a better chance of understanding 
how they work. Basic loaded programs are just so many 
incomprehensible numbers, whereas these have the machine code 
mnemonics beside them. Thus a hitherto seemingly random set of 
numbers turns out to be, in reality, a jump to an internal ROM 
subroutine, for instance. 

If you've got the tape that accompanies this book, or you've typed 
in the listing for Extramon in the last chapter and got it all working, 
it will obviously make life easier when it comes to entering the code. 
However, if your wallet or fingers aren't up to it, then you can still 
use the commands by converting the numbers as shown in the listings, 
and hand POKEing them into the machine. 

Alternatively, you can convert them into Basic loaders yourself by 
working out what all those hexadecimal numbers mean, turning them 
into decimal and storing them as a set of data statements. 
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Either way, you'll still be able to use them. However, an assembler/ 
disassembler is a powerful tool for the machine code programmer, 
whether beginning or advanced, and I strongly recommend that one 
way or another you get that program working. 

To aid you in the conversion, here's a handy hex to decimal converter. 



HEX 





1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 








1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


1 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


2 


32 


33 


34 


35 


36 


37 


38 


39 


40 


41 


42 


43 


44 


45 


46 


47 


3 


48 


49 


50 


51 


52 


53 


54 


55 


56 


57 


58 


59 


60 


61 


62 


63 


4 


64 


65 


66 


67 


68 


69 


70 


71 


72 


73 


74 


75 


76 


77 


78 


79 


5 


80 


81 


82 


83 


84 


85 


86 


87 


88 


89 


90 


91 


92 


93 


94 


95 


6 


96 


97 


98 


99 


100 


101 


102 


103 


104 


105 


106 


107 


108 


109 


110 


111 


7 


112 


113 


114 


115 


116 


117 


118 


119 


120 


121 


122 


123 


124 


125 


126 


127 


8 


128 


129 


130 


131 


132 


133 


134 


135 


136 


137 


138 


139 


140 


141 


142 


143 


9 


144 


145 


146 


147 


148 


149 


150 


151 


152 


153 


154 


155 


156 


157 


158 


159 


A 


160 


161 


162 


163 


l64 165 


166 


167 


168 


169 


170 


171 


172 


173 


174 


175 


B 


176 


177 


178 


179 


180 


181 


182 


183 


184 


185 


186 


187 


188 


189 


190 


191 


C 


192 


193 


194 


195 


196 197 198 


199 


200 


201 


202 


203 


204 


205 


206 


207 


D 


208 


209 


210 


211 


212 


213 


214 


215 


216 


217 


218 


219 


220 


221 


222 


223 


E 


224 


225 


226 


227 


228 


229 


230 


231 


232 


233 


234 


235 


236 237 


238 


239 


F 


240 


241 


242 


243 


244 


245 


246 


247 


248 


249 


250 


251 


252 


253 


254 


255 



These neat little programs will allow you to convert from hex to decimal 
and back again, and from decimal to binary, although the latter is 
restricted in size to numbers lying between and 225. 

1 ) Decimal to Hex, where D contains the decimal number, and H$ = "" 
before calling this routine. On exit, H$ contains the hex value : = 

10 IFDTHENA=INT(D/16):H$ = MID$("0123456789ABCDEF",1 + 
D-A*16,1) + H$:D = A:GOTO10 

2) Hex to Decimal, where H$ contains the hexadecimal value, and D 
holds the decimal value on exit : = 

10 

D = 0:IFH$>""THENFORI = 1TOLEN(H$):A = ASC(MID$(H$,l,1))-48 
:D=D*16 + A + (A>9)*7:NEXT 

3) Decimal to Binary, where B is the decimal number lying between 
and 225, and A$ contains the binary value on exit : = 

10 A$ = "":FORI = 0TO7:T=B-INT(B/2)*2:IFT = 0THENA$ = "0" + A$ 
15 A$ = "1" + A$:B = INT(B/2):NEXTN 
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For now, let's take a look at what Commodore Basic has and hasn't 
got. 

Commodore's Basic 

The deficiencies inherent in Commodore Basic are well known. But 
it's interesting to trace these deficiencies back through time to the very 
early Commodore machines. 

The first Commodore PET, as well as coming complete with its own 
cassette deck and monitor, and having a paltry 8K of RAM (and also 
costing some £625 when it first appeared back in 19791), had what 
Commodore themselves termed Basic 1 . 

As a Basic language it was fine at the time, but there were a number 
of things missing from it. For example, there was no way of accessing 
the machine code monitor, as it didn't have one built in. 

A utility to overcome this soon came on the market, but this took up 
precious space from the meagre amount of RAM that you had, and 
so Commodore followers had to wait a couple of years before Basic 
2 appeared. 



Basic 2 

When it did appear it caused instant confusion among the Commodore 
ranks, since some people were calling it Basic 2, and others referred 
to it as Basic 3. Seemingly the so-called 'Basic 2' never appeared, and 
although this particular version of the language was always called Basic 
2, theoretically it should have been referred to as Basic 3. 

Still, whatever number you gave it it was a great improvement over 
its predecessor, and did have access to a machine code monitor. 
Moreover, the ROM installed was now capable of looking after disk 
drives, something that the earlier machines could not do. 

Time went by, Basic 4 appeared, and for a long time it was rumoured 
that there was to be a fifth version of the language as well, with all 
the features that existing ones had lacked, of which more in a moment. 

However, at the time of writing Basic 5 is in the realms of fantasy, 
and is not likely to appear now. 
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64 Basic 



This brings us to the Commodore 64, sidestepping the Vic along the 
way. 

The version of Basic that they've installed in the machine is that which 
we referred to earlier as Basic 2/3, although Commodore have 
apparently now decided that it should be called Basic 2, and indeed 
this is what the machine greets you with when you turn it on. 

However, not only have Commodore taken a retrograde step and 
installed an old version of their popular Basic language, but they've 
also managed to take out a great deal of what was already in there. 

So we see no machine code monitor - and hence the need for programs 
such as Extramon and the like. 

What we are left with instead is an extremely flexible memory 
management system, but a very poor Basic with which to manage it. 

The memory architecture looks something like this: 
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Commodore-64 Architecture Map 



CHARACTER SET 
tbil2olJ0001) 

= CHAR ROM 

1 = !/0 ROM/RAM 



VIC II Chip sees 
Ihis 16K block 
on p(jwet-i)p 



SF.OO0 
JDCOO 
SD800 
»D0OO 



S8000 
(32768) 



$4000 
(16384) 



$2000 
(8192) 



$0800 
$0400 

$0000 



4K RAM 

-(49152)- 



BASIC 
INTERPRETER 
ROM 



BASIC 
User RAM 
(38912 Bytes) 



(2(>48) 

Screen (IK) 

(1024) 

Workspace (IK) 





8K HI RAM 
{bii 1 of snool) 

- RAM 

1 = KERNALROM 




■IK RAM 
maps to SDOOO when 
bits OA 1 of $0001 - 






8K LO RAM 
(bilOof SOOOl) 

= RAM 

1 = BASIC ROM 




EXROM 
8K ROM Cartridge 
maps here 



Processor Reg ($0/1) 



HI-RES Screen 
maps here 



HI-RES Colour Table 



To look after all this requires a lot of work, and to understand it all 
properly requires even more! 

Still, what you buy is what you get, so let's see precisely what we 
have got. 
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Basic advantages 



The version of Basic in the Commodore 64 is a pretty standard version 
of what is usually referred to as Microsoft Basic. 

This is based on the original Beginners All-purpose Symbolic Instruction 
Code, from which the language takes its name. This language was 
devised a number of years ago, and the cracks are now beginning to 
show, but for a beginner it is still possibly the easiest of languages 
to learn. 

Apart from the interface to machine code, which is not good, the 
commands you have at your disposal are not too difficult to understand 
and get to grips with, and owing to the great similarity between Basic 
words and English words, most beginners can soon start writing 
programs in Basic. 



And disadvantages 

However, most beginners also soon come to realise that the version 
of Basic as supplied by Commodore is sadly lacking in a number of 
departments. 

The concepts of structured programming, the computer flavour of the 
month, are impossible to simulate on the 64, and there is a distinct 
lack of such commands as PRINT AT, PRINT USING, and so on. 

In particular, when it comes to using graphics and sound, the number 
of commands is strictly limited to two : PEEK and POKE. No other 
commands exist to cope with the vast number of PEEKs and POKEs 
needed to set up a high resolution screen and draw things on it, or 
to play a few musical notes, or do just about anything with either 
graphics or sound. 

If you want to make music, or display various images on the screen, 
it has all got to be done the long way, by using a laborious series of 
POKES. 

Given that this version of Basic is so appalling in these particular 
departments, it is no wonder that people go to great lengths to try 
to improve it. 
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There are now many packages on the market that, in a variety of 
different ways, have set out to try to improve on the language that 
we are originally offered. 

Whether they succeed in their chosen aims is, of course, a completely 
different matter, but what they all have in common is that they are 
adding commands to the existing version of Basic, and through those 
commands are seeking to make life easier for the person using the 
machine. 

The rest of this chapter will be devoted to showing you one way in 
which commands could be added, as well as giving you a number of 
routines to try out for yourself. 

But first, the concepts involved. 

Adding commands: the concepts 

There are many different ways in which you can add commands to 
Commodore's existing command set. Commands can be added either 
as words or symbols, or indeed we could also use the function keys: 
re-define them to be able to accept existing Basic keywords, and then 
put our new words (or symbols) in their place. 

We'll be looking at the two simplest options in this chapter, namely 
defining various symbols to act as commands, rather than adding new 
words, and re-defining the function keys to accept these symbols. 

These are certainly easier than trying to add new command words to 
Basic, as this involves altering a lot more things than we are going 
to do, and for the first time user can seem to be incredibly complicated. 
So complicated in fact that you probably wouldn't even want to try it! 

Still, what we are going to do is fairly straightfonward, and shouldn't 
present any major difficulties. 



Getting a character 

Anything that you type onto the screen is interpreted and executed 
by the Commodore 64 as soon as you press the return key. Once this 
key has been pressed there are a number of routines built into the 64 
which will act upon everything that you typed in, and depending on 
precisely what you typed a number of things will happen. 
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You can generate a syntax error, and a subroutine exists within the 
Basic ROM to print out a suitable message and return to await your 
next input. Since it is in ROIVI (it starts at location $AF08) we can't 
alter it, but there's nothing to stop us copying this ROM into RAM 
and altering it there, so that SYNTAX ERROR becomes something 
a lot more meaningful. Or a lot more rude, if you're feeling in that kind 
of mood! 

You could have entered a line of a program, in which case you won't 
get any error messages (or for that matter any other messages) coming 
back at all, but a great many pointers inside the machine will have 
been altered to cope with the new line. 

You might have entered a direct command, and in this case the 
machine will just execute whatever it was that you typed in. 



Character get routine 

How does the machine know what to do.'' in other words, how does 
it interpret what you've typed in? Understanding this is the key to 
generating our own commands, because if we can intercept the Basic 
routine that looks after all the commands and alter it, we are then well 
on the way to adding our own commands into the machine. 

The machine knows what to do because of the ROM that's built into 
it, but there must be a routine somewhere in the machine that looks 
at what you've typed in and thinks 'ahah!', and then does (or attempts 
to do) whatever you've told it. 

There is indeed such a routine, which lives in locations $0073 to $008A 
(or decimal locations 1 15 to 138), and this is usually referred to as the 
CHARGET routine, or character get. 

This is the routine that gets a character that you've typed in and acts 
upon that character. 

The routine looks, in its original form, like this: 
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CHARACTER BET ROUTINE BEFORE 



B* 

PC SR AC XR YR SP 
. : 8FEB 33 OO D3 00 F6 



0073 


E6 


7A 


INC 


*7A 


0075 


DO 


02 


BNE 


*0079 


0077 


E6 


7B 


INC 


*7B 


0079 


AD 


31 02 


LDA 


*0231 


007C 


C9 


3A 


CMP 


#*3A 


007E 


BO 


OA 


BCS 


*008A 


0080 


C9 


20 


CMP 


#*20 


0082 


FO 


EF 


6EQ 


*0073 


0084 


38 




SEC 




0085 


E9 


30 


SBC 


#*30 


0087 


38 




SEC 




0088 


E9 


DO 


SBC 


#tD0 


OOSA 


60 




RTS 





What we are going to do is alter that routine so that it no longer behaves 
in quite the same way. 

As it stands at the moment, it interprets everything in the following 
way: 

Locations $73-$77 : update the pointer in memory 
locations $7A and $7B. 

Locations $79-$7B : this is the pointer. 

Locations $7C-$7F : if it's a colon or greater, 
then end. 

Locations $80-$83 : if it's a space, then loop 
back to start again. 

Locations $84-$8A : set flags for character type, 
and return from subroutine. 



Comments 

This routine is the key to adding commands to Basic, since by altering 
it we can make it jump to some code of our own which will check 
for a special character, and if that character has been entered then 
do something! If we find that a special character has not been typed, 
then it's back to the routine again and carry on as normal. 

We'll see later on how we can actually load a program into the 
computer which, when executed, alters the routine to behave in the 
way we want. 

Instead, a couple of JSRs (jumps to subroutines) will be incorporated 
in it, and when we've finished with it it will look like this: 
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AND AFTER! 



B* 

PC SR AC XR YR SP 



. ; 7FC5 33 00 AD 


00 F6 


0073 


E6 


7A 




INC 


*7A 


0075 


DO 


02 




BNE 


*0079 


0077 


E& 


7B 




INC 


*7B 


0079 


AD 


IE 


02 


LDA 


*021E 


007C 


C9 


3A 




CMP 


#«3A 


007E 


FO 


OA 




BEQ 


«008A 


0080 


C9 


20 




CMP 


#*20 


0082 


FO 


EF 




BEQ 


*0073 


0084 


20 


00 


C2 


JSR 


*C200 


0087 


20 


00 


CI 


JSR 


*C100 


008A 


60 






RTS 





It would be wise, at this point, to make an effort to get Extramon typed 
up and loaded into the computer, since this will make life a lot easier 
from now on. Without it we can still proceed with a lot of POKEs, 
but in order to see precisely what is happening, Extramon is a great 
help. 



When everything is running normally, on pressing the Return key the 
system will come out of ROM into this routine to fetch the next 
character of Basic text, then trundle back into ROM again to ponder 
on its next move. 

What will happen now is that the system will come out of ROM, to 
our changed subroutine, and when it hits the first JSR command it 
will jump to the routine sitting at location $C200 onwards. This will 
determine whether or not we're going to be interpreting a special 
command, and if we are jump somewhere else to process it. 

If we're not, then the system goes back to the altered CHARGET 
routine, and finds that it now has to make yet another jump, this time 
to location $C100. This is simply a direct copy of what used to exist 
in the portion of CHARGET that we have changed, so that execution 
can continue as normal in the event of a special character not being 
found. 

After that, it returns into ROM again to work out what will happen next. 

The program to alter the CHARGET routine sits at locations $C10B 
onwards, and together with the direct replacement for the altered parts, 
which starts at location $C100, it all looks like this : 



Altering the CHARGET routine 



PC SR AC XR YR SP 
. : 8FEB 33 00 D3 OO F6 



CI 00 C9 3 A 
CI 02 BO 06 
CI 04 38 



CMP #*3h 
BCS *C10A 
SEC 



CI 05 E9 30 
CI 07 38 



SBC #*30 
SEC 



CI 08 E9 DO 
CI OA 60 



SBC #*D0 

RTS 



CI OB A9 20 
ClOD 85 84 



LDA #*20 
STA *84 
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CI OF 




/ 


1 ri 


/ 


CI 1 1 


A 9' 


00 


1 ly M 




p 1 1 T 






3 I H 




l-r 1 1 <^ 


DvJ 




1 H 


-±^00 
4-CJt5 


P 1 1 7 


HV 


po 


L.UH 




P 1 1 Q 




00 


3 1 H 


-V-DO 


P 1 1 R 




P 1 


1 HA 
l—UH 




p 1 1 n 


DilJ 




s 1 H 




P 1 1 C 






L.UH 




C121 


85 


7E 


BTA 


*7E 


C123 


A9 


04 


LDA 


#*04 


C125 


85 


7A 


STA 


*7A 


C127 


85 


7B 


STA 


*7B 



The next routine that we need is the one to separate the extra code 
and the processing of that code from ordinary Basic. In this routine 
we check the current character being processed against a table stored 
at locations $C300 onwards, and if we find what we're lool<ing for, 
branch to the appropriate subroutine by reading the most significant 
byte and least significant byte of the subroutine address from a table 
which is stored immediately after the character data. 



B* 

PC SR AC XR YR SP 
.;371A 33 00 02 GO F6 



C200 


08 






PHP 




C201 


86 


04 




STX 


*04 


C203 


A2 


04 




LDX 


#*04 


C205 


DO 


00 


C3 


CMP 


*C300,X 


C20B 


FO 


07 




BEQ 


$C211 


C20A 


CA 






DEX 




C20B 


10 


F8 




BPL 


*C205 


C20D 


A6 


04 




LDX 


*04 


C20F 


28 






PLP 




C210 


60 






RTS 




C211 


BD 


06 


C3 


LDA 


*C306 , X 


C214 


8D 


IE 


C2 


STA 


*C21E 


C217 


BD 


08 


C3 


LDA 


«C308,X 


C21A 


8D 


IF 


C2 


STA 


*C21F 


C21D 


20 


00 


CO 


JSR 


*COOO 


C220 


20 


74 


A4 


JSR 


*A474 
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To explain what's happening, the program first of all saves the current 
status register onto the staci<, and the current value held in the X 
register into location $0004 in the event of not finding a special 
character. 

If that is the case, then everything is read back into the appropriate 
registers and it's off to the CHARGET routine again. 



Finding special characters 

However, if a special character is found then we branch out to location 
$C21 1 where we get the least significant byte and the most significant 
byte from our table. These are then stored at the appropriate registers, 
and then the program branches off to the subroutine to carry out the 
command. 

The characters, and their LSBs and MSBs look like this : 



PC SR AC XR YR SP 
. ; 26F4 33 CO DC 00 F6 

C300 5F ??? 

C301 21 21 AND (*21,X) 

C303 21 21 AND (*21,X) 

C305 00 BRK 

C306 00 BRK 

C307 CO CO CPY #*C0 



This may not look very sensible as a disassembly, but it's the data that 
we're after, not the annotations. 

The only thing we need now is a routine to execute, and in this case 
we've used an OLD routine. This can be used without the rest of this 
code by just typing in SYS49152, and it will then recover any program 
lost after a NEW command had been issued. 

On the other hand, there's something infinitely more satisfying about 
seeing your own code being executed at the press of a key, rather 
than typing in boring old SYS commands all the time. 
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B« 

PC SR AC XR YR SP 



.;6F9F 33 00 87 


00 F6 




COOO 


AS 


2B 


LDA 


«2B 




C002 


A4 


2e 


LDY 


*2C 




C004 


85 


22 


STA 


*22 




C006 


84 


23 


STY 


*23 




C008 


AO 


03 


LDY 


#*03 




COOA 


C8 




I NY 






COOB 


Bl 


22 


LDA 


($22) , 


Y 


COOD 


DO 


FB 


BNE 


$COOA 




COOF 


C8 




INY 






COlO 


98 




TYA 






coil 


18 




CLC 






C012 


65 


22 


ADC 


*22 




C014 


AO 


00 


LDY 


»*oo 




C016 


91 


2B 


STA 


(«2B} , 


Y 


C018 


AS 


23 


LDA 


*23 




COIA 


69 


00 


ADC 


««oo 




COIC 


C8 




INY 






COID 


91 


2B 


STA 


(*2B) , 


Y 


COIF 


88 




DEY 






C020 


A2 


03 


LDX 


»*03 




C022 


E6 


22 


INC 


*22 




C024 


DO 


02 


BNE 


*C028 




C026 


E6 


23 


INC 


*23 




C028 


Bl 


22 


LDA 


<*22) , 


Y 


C02A 


DO 


F4 


BNE 


*C020 




C02C 


CA 




DEX 






C02D 


DO 


F3 


BNE 


*C022 




C02F 


AS 


22 


LDA 


*22 




C031 


69 


02 


ADC 


#*02 




C033 


85 


2D 


STA 


*2D 




C035 


AS 


23 


LDA 


*23 




C037 


69 


00 


ADC 


#*oo 




C039 


85 


2E 


STA 


*2E 




C03B 


60 




RTS 







Now that we've got everything together, it only remains to run the 
program by going to the various parts of it, and then, just by pressing 
the left arrow key and Return, we can instantly recover any program 
that may have been lost due to an accidental NEW. 

To add yet more commands, you'll need to store more data for 
characters, and more data for LSBs and MSBs at locations $C3000 
and onwards (or anywhere else for that matter, as long as the program 
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is pointed to the correct location!). The data for the characters is just 
the ASCII code for that character. 

If, however, your forte is typing words rather than symbols, the 
following program shows how you might use the word BAK to get 
back a program, rather than typing in the left-arrow key. 



B* 

PC SR AC XR YR SP 
.;8D55 31 72 9F 00 F6 





uo 






PHP 




r"7rii 


OO 






CT V 
Z3 1 A 


^04 




i\'7 






t rvv 
L-Ua 






nn 
uu 


uu 




LiPIr 


*L#-J>UO f A 




r yj 






ot.L! 






r*/\ 
Uh 






Uk. X 






lU 


CO 

r D 




BPL 


$C205 


Lr^UU 


Ho 






LDX 


#04 


U^Ur 








PLP 




C210 


60 






RTS 




C21 1 


BD 


06 


C3 


LDA 


*C306 , X 


C214 


8D 


IE 


C2 


STA 


*C21E 


C217 


BD 


08 


C3 


LDA 


#C308 , X 


C21 A 


8D 


IF 


C2 


STA 


*C21F 


C21D 


20 


CO 


FF 


JSR 


*FFCO 


C220 


E6 


C9 




INC 


*C9 


C222 


DO 


02 




BNE 


*C226 


C224 


E6 


CA 




INC 


*CA 


C226 


28 






PLP 




C227 


A2 


OO 




LDX 


#*00 


C229 


Al 


C9 




LDA 


(*C9, X) 




Ho 






1 r\ V 
LUX 


»U4 


C22D 


60 






RTS 




C22E 


OO 






BRK 




C22F 


00 






BRK 




C230 


E6 


7A 




INC 


*7A 


C232 


DO 


02 




BNE 


*C236 


C234 


E6 


7B 




INC 


*7B 


C236 


A2 


oo 




LDX 


#*oo 


C238 


Al 


7A 




LDA 


(*7A,X) 


C23A 


38 






SEC 




C23B 


E9 


41 




SBC 


#*41 


C23D 


FO 


03 




BEQ 


*C242 


C23F 


4C 


5A 


C2 


JMP 


*C25A 


C242 


E6 


7A 




INC 


*7A 


C244 


DO 


02 




BNE 


«C248 


C246 


E6 


7B 




INC 


*7B 


C248 


A2 


00 




LDX 


«*oo 


C24A 


Al 


7A 




LDA 


(*7A,X) 
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C24C 
C24D 
C24F 
C251 
C254 
C257 



38 
E9 
FO 
4C 
20 
20 



4B 

03 



08 AF 
00 CO 
74 A4 



SEC 
SBC 
BEQ 
JMP 
JSR 
JSR 



#«4B 

*C254 

$AF08 

*C000 

*A474 



Early experiments 



You could start your experiments with adding commands by trying 
to interface the graphics routines given earlier to act at the press of 
a key. Where commands will need parameters added to them, you 
could have another table of addresses to interpret things like II, 12, 
13 and so on where, having found that an '1' symbol has been entered, 
you then check to see what the next number is and go to the correct 
subroutine. 

Where you'll need other parameters to be separated by commas, it 
is most practical to go to the internal ROM routines and let them do 
the checking, as was done with the graphics routine for setting up 
a high resolution screen in a suitable colour. 



Function keys 

We said earlier that we'd be giving you a program to use the function 
keys, and here it is. As it stands, it allows you to define the function 
keys to be any of the existing Basic keywords, although of course if 
you add your own commands you can also define a key to be one 
or more of those as well. 

When you run the program by typing in SYS 48152, the prompt F1? 
will appear, at which point you enter whatever you want function key 
1 to be (e.g. PRINT). If you want to make it equivalent to typing in 
PRINT and then hitting the Return key, enter PRINT followed by the 
left arrow key, which has been used in this program to stand for the 
Return key. 
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B* 

PC SR AC XR YR SP 
. ; a7Da 33 00 CO 00 F'S 



cooo 


A9 


00 




LDA 


«$00 


C002 


AA 






TAX 




C003 


9D 


oo 


C2 


STA 


*C200,X 


C006 


9D 


00 


C3 


STA 


*C300,X 


C009 


9D 


oo 


C4 


STA 


*C400 , X 


COOC 


E8 






INX 




GOOD 


DO 


F4 




BNE 


*C003 


COOF 


85 


FB 




STA 


*FB 


con 


A9 


C2 




LDA 


#*C2 


C013 


85 


FC 




STA 


*FC 


C015 


A9 


31 




LDA 


tt«31 


C017 


85 


FD 




STA 


*FD 


C019 


A9 


85 




LDA 


tt$85 


COIB 


85 


FE 




STA 


*FE 


COID 


A9 


OD 




LDA 


tt«0D 


COIF 


20 


D2 


FF 


JSR 


*FFD2 


C022 


A9 


46 




LDA 


*«46 


C024 


20 


D2 


FF 


JSR 


*FFD2 


C027 


AS 


FD 




LDA 


♦FD 


C029 


20 


D2 


FF 


JSR 


*FFD2 


C02C 


A9 


3D 




LDA 


#$3D 


C02E 


20 


D2 


FF 


JSR 


*FFD2 


C031 


A9 


3F 




LDA 


»*3F 


C033 


20 


D2 


FF 


JSR 


*FFD2 


C036 


20 


CF 


FF 


JSR 


*FFCF 


C039 


48 






PHA 




C03A 


AO 


oo 




LDY 


»$00 


C03C 


AS 


FE 




LDA 


*FE 


C03E 


91 


FB 




STA 


(»FB> ,Y 


C040 


68 






PLA 




C041 


20 


85 


CO 


JSR 


♦C085 


C044 


C9 


OD 




CMP 


#«0D 


C046 


FO 


11 




BEQ 


*COS9 


C048 


C9 


5F 




CMP 


#*5F 


C04A 


DO 


02 




BNE 


♦C04E 


C04C 


A9 


OD 




LDA 


««0D 


C04E 


91 


FB 




STA 


(*FB) ,Y 


C050 


20 


85 


CO 


JSR 


*C08S 


C053 


20 


CF 


FF 


JSR 


*FFCF 


C056 


4C 


44 


CO 


J MP 


*C044 


C059 


E6 


FD 




INC 


*FD 


C05B 


AS 


FD 




LDA 


*FD 


C05D 


29 


01 




AND 


»$oi 


C05F 


DO 


OA 




BNE 


$C06B 


C061 


18 






CLC 




C062 


AS 


FE 




LDA 


*FE 


C064 


69 


04 




ADC 


««04 


C066 


85 


FE 




STA 


*FE 
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C068 


4C 


72 


CO 


J MP 


$C072 


C06B 


38 






SEC 




C06C 


AS 


FE 




LDA 


4FE 


C06E 


E9 


03 




SBC 


#$03 


C070 


85 


FE 




STA 


«FE 


C072 


AS 


FD 




LDA 


«FD 


C074 


C9 


39 




CMP 


#*39 


C076 


30 


AS 




BMI 


*C01D 


C078 


78 






SEI 




C079 


A9 


90 




LDA 


#490 


C07B 


80 


14 


03 


STA 


$0314 


C07E 


A9 


CO 




LDA 


#$C0 


C080 


8D 


15 


03 


STA 


#0315 


C083 


58 






CLl 




C084 


60 






RTS 




C08S 


A6 


FB 




LDX 


*FB 


C087 


EO 


FF 




CPX 


#*FF 


C089 


DO 


02 




BNE 


«C08D 


C08B 


E6 


FC 




INC 


*FC 


C080 


E6 


FB 




INC 


$FB 


C08F 


60 






RTS 




C090 


AS 


C5 




LDA 


*C5 


C092 


C5 






CflP 


SFE 


C094 


FO 


3A 




BEQ 


$CODO 


C096 


C9 


03 




CMP 


#$03 


C09B 


30 


36 




BMI 


$CODO 


C09A 


C9 


07 




CMP 


#$07 


C09C 


10 


32 




BPL 


$CODO 


C09E 


85 


FE 




STA 


$FE 


COAO 


C9 


03 




CMP 


#$03 


C0A2 


DO 


03 




BNE 


$C0A7 


C0A4 


18 






CLC 




C0A5 


69 


04 




ADC 


#$04 


C0A7 


18 






CLC 




C0A8 


69 


81 




ADC 


#$81 


COAA 


AE 


8D 


02 


LDX 


$028D 


COAD 


FO 


03 




BEQ 


$C0B2 


COAF 


18 






CLC 




COBO 


69 


04 




ADC 


#$04 


C0B2 


85 


FD 




STA 


$FD 


C0B4 


AO 


OO 




LDY 


#$oo 


C0B6 


A9 


C2 




LDA 


#$C2 


COBB 


85 


FC 




STA 


$FC 


COBA 


84 


FB 




STY 


$FB 


COBC 


Bl 


FB 




LDA 


($FB) , 


COBE 


C5 


FD 




CMP 


$FD 


COCO 


FO 


13 




BEQ 


$C005 


COC2 


C8 






I NY 




C0C3 


DO 


F7 




BNE 


$COBC 


COC5 


E6 


FC 




INC 


$FC 


C0C7 


AS 


FC 




LDA 


$FC 


C0C9 


C9 


C5 




CMP 


#$C5 



COCB 


DO 


EF 




BNE 


»COBC 




COCD 


4C 


31 


EA 


JMP 


«EA31 




CODO 


85 


FE 




STA 


♦FE 




C0D2 


4C 


31 


EA 


JMP 


«EA31 




CODS 


C8 






I NY 






C006 


DO 


08 




BNE 


*COEO 




CODB 


E6 


FC 




INC 


*FC 




CODA 


AS 


FC 




LDA 


*FC 




CODC 


C9 


CS 




CMP 


#*C5 




CODE 


FO 


F2 




BEQ 


$C0D2 




COEO 


Bl 


FB 




LDA 


(*FB) , 


Y 


C0E2 


C9 


OD 




CMP 


««0D 




C0E4 


DO 


OA 




BNE 


*COFO 




C0E6 


E6 


C6 




INC 


«C6 




COEB 


A6 


C6 




LDX 


♦C6 




COEA 


9D 


77 


02 


STA 


*0277 , 


X 


COED 


4C 


D5 


CO 


JMP 


*C0D5 




COFO 


C9 


OO 




CMP 


««00 




C0F2 


FO 


DE 




BEQ 


*C0D2 




C0F4 


C9 


8S 




CMP 


«$85 




C0F6 


30 


07 




BMI 


»C0FF 




COFS 


C9 


8D 




CMP 


««BD 




COFA 


10 


03 




BPL 


»C0FF 




COFC 


4C 


31 


EA 


JMP 


«EA31 




COFF 


20 


D2 


FF 


JSR 


»FFD2 




C102 


4C 


D5 


CO 


JMP 


*C0D5 




C105 


OO 






BRK 







To conclude 

And that's all there is to adding commands. Just intercept the Basic 
routines that usually look after everything, and write your own to do 
the job instead. 

As your knowledge of machine code grows, so can the complexity 
and indeed the number of the commands that you would want to add. 

Perhaps one day we'll see a 'Smith's Basic' on the market for the 
Commodore 64! 
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Appendix 
An assembler/disassennbler 

Introduction 

A familiar little program, presented here for the first time in 
disassembled form, so that you can get a better idea of how it works, 
and also make it a lot easier to type in, if you choose to undertake 
the mammoth task involved. 

The monitor can be accessed at any time with a SYS 2176 command, 
but if you want to move it to somewhere else in memory, just use 
the Transfer Memory feature and put Extramon anywhere you like. 

Make a note of where Extramon now lives, if you do move it, so that 
you'll know the correct SYS call to give. 

And now, it's time to get the fingers tapping! 
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B» 

PC SR AC XR YR SP 
. ! 8708 33 00 CO 00 F6 



0880 


A5 


2D 


LDA 


$20 




0882 


85 


22 


STA 


*22 




0884 


A5 


2E 


LDA 


*2E 




0886 


85 


23 


STA 


*23 




0888 


AS 


37 


LDA 


*37 




088A 


85 


24 


STA 


*24 




088C 


AS 


38 


LDA 


$38 




088E 


85 


25 


STrt 


*25 




0890 


AO 


OO 


LDY 


#$00 




0892 


AS 


22 


LDA 


$22 




0894 


DO 


02 


BNE 


$0898 




0896 


C6 


23 


DEC 


*23 




0898 


C6 


22 


DEC 


*22 




089A 


Bl 


22 


LDA 


(*22) , 


Y 


089C 


DO 


3C 


BNE 


$080A 




089E 


A5 


22 


LDA 


$22 




08A0 


DO 


02 


BNE 


$08A4 




08A2 


C6 


23 


DEC 


$23 




08A4 


C6 


22 


DEC 


$22 




08A6 


Bl 


22 


LDA 


($22) , 


Y 


08A8 


FO 


21 


BEQ 


$08CB 




08AA 


85 


26 


STA 


$26 




08AC 


AS 


22 


LDA 


$22 




08AE 


DO 


02 


BNE 


$0882 




08B0 


C6 


23 


DEC 


$23 




08B2 


C6 


22 


DEC 


$22 




08B4 


Bl 


22 


LDA 


($22) , 


Y 


08B6 


18 




CLC 






08B7 


65 


24 


ADC 


$24 




08B9 


AA 




TAX 






08BA 


AS 


26 


LDA 


$26 




08BC 


65 


25 


ADC 


$25 




08BE 


48 




PHA 






08BF 


AS 


37 


LDA 


$37 




OBCl 


DO 


02 


BNE 


$08C5 




08C3 


C6 


38 


DEC 


$38 




08C5 


C6 


37 


DEC 


$37 




08C7 


68 




PLA 






08C8 


91 


37 


STA 


($37) , 


Y 


08CA 


8A 




TXA 






08CB 


48 




PHA 






08CC 


AS 


37 


LDA 


$37 




08CE 


00 


02 


BNE 


$0802 




08D0 


C6 


38 


DEC 


$38 




08D2 


C6 


37 


DEC 


$37 




0804 


68 




PLA 






0805 


91 


37 


STA 


($37) , 


Y 


0807 


18 




CLC 
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0808 


90 


B6 




BCC 


«0890 


08DA 


C9 


4F 




CMP 


tt*4F 


08DC 


DO 


EO 




BNE 


«08CB 


08DE 


A5 


37 




LDA 


*37 


08E0 


85 


33 




STA 


»33 


oaE2 


AS 


38 




LDA 


$38 


08E4 


85 


34 




STA 


$34 


0aE6 


6C 


37 


OO 


JMP 


(*0037) 


08E9 


4F 






??? 




08EA 


4F 






??? 




08EB 


4F 






??? 




08EC 


4F 






??? 




08ED 


AD 


E6 


FF 


LDA 


♦FFE6 


08F0 


00 






BRK 




08F1 


8D 


16 


03 


STA 


«0316 


08F4 


AD 


E7 


FF 


LDA 


*FFE7 


oar? 


00 






BRK 




08F8 


8D 


17 


03 


STA 


*0317 


08FB 


A9 


80 




LDA 


««80 


08FD 


20 


90 


FF 


JSR 


*FF90 


0900 


00 






BRK 




0901 


00 






BRK 




0902 


D8 






CLO 




0903 


68 






PLA 




0904 


8D 


3E 


02 


STA 


«023E 


0907 


68 






PLA 




0908 


8D 


30 


02 


STA 


:>0230 


090B 


68 






PLA 




090C 


8D 


3C 


02 


STA 


*023C 


090F 


68 






PLA 




0910 


8D 


3B 


02 


STA 


«023B 


0913 


68 






PLA 




0914 


AA 






TAX 




0915 


68 






PLA 




0916 


A8 






TAY 




0917 


38 






SEC 




0918 


8A 






TXA 




0919 


E9 


02 




SBC 


#$02 


091B 


80 


3A 


02 


STA 


*023A 


091E 


98 






TYA 




091F 


E9 


OO 




SBC 


#$oo 


0921 


OO 






BRK 




0922 


80 


39 


02 


STA 


*0239 


0925 


BA 






TSX 




0926 


8E 


3F 


02 


STX 


*023F 


0929 


20 


57 


FD 


JSR 


*F057 


092C 


OO 






BRK 




092D 


A2 


42 




LDX 


#$42 


092F 


A9 


2A 




LDA 


*$2A 


0931 


20 


57 


FA 


JSR 


*FA57 


0934 


00 






BRK 




0935 


A9 


52 




LDA 


#$52 



0937 


DO 


34 




BNE 


*096D 




0939 


E6 


CI 




INC 


*C1 




093B 


DO 


06 




BNE 


*0943 




093D 


E6 


C2 




I ^.'C 


*C2 




093F 


DO 


02 




BNE 


*0943 




0941 


E6 


26 




INC 


*26 




0943 


60 






RTS 






0944 


20 


CF 


FF 


JSR 


*FFCF 




0947 


C9 


OD 




CMP 


#*0D 




0949 


DO 


F8 




BNE 


*0943 




094B 


68 






PLA 






094C 


68 






PLA 






094D 


A9 


90 




LDA 


»*90 




094F 


20 


D2 


FF 


JSR 


*FFD2 




0952 


A9 


00 




LDA 


#*00 




0954 


OO 






BRK 






0955 


85 


26 




5TA 


*26 




0957 


A2 


OD 




LDX 


»^0D 




0959 


A9 


2E 




LDA 


»*2E 




095B 


20 


57 


FA 


JSR 


*FA57 




095E 


00 






BRK 






095F 


A9 


05 




LDA 


#*05 




0961 


20 


D2 


FF 


JSR 


*FFD2 




0964 


20 


3E 


Fa 


JSR 


*Fa3E 




0967 


00 






BRK 






0968 


C9 


2E 




CMP 


#*2E 




096A 


FO 


F9 




BEQ 


*0965 




096C 


C9 


20 




CMP 


#*20 




096E 


FO 


F5 




BEQ 


*0965 




0970 


A2 


OE 




LDX 


#«0E 




0972 


DD 


B7 


FF 


CMP 


*FFB7 . 


X 


0975 


00 






BRK 






0976 


DO 


OC 




BNE 


*0984 




0978 


8A 






TXA 






0979 


OA 






ASL 






097A 


AA 






TAX 






097B 


BD 


C7 


FF 


LDA 


*FFC7, 


X 


097E 


00 






BRK 






097F 


48 






PHA 






0980 


BD 


C6 


FF 


LDA 


*FFC6, 


X 


0983 


00 






BRK 






0984 


48 






PHA 






0985 


60 






RTS 






0986 


CA 






DEX 






0987 


10 


EC 




BPL 


*0975 




0989 


4C 


ED 


FA 


JMP 


*FAED 




098C 


OO 






BRK 






098D 


A5 


CI 




LDA 


*C1 




098F 


8D 


3A 


02 


STA 


*023A 




0992 


A5 


C2 




LDA 


*C2 




0994 


BD 


39 


02 


STA 


*0239 




0997 


60 






RTS 
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A9 


08 




LDA 


#$08 


099A 


85 


ID 




STA 


$1D 


099C 


AO 


OO 




LDY 


#$00 


099E 


00 






BRK 




099F 


20 


54 


F'D 


JSR 


$FD54 


09A2 


00 






BRK 




09 A3 


Bl 


CI 




LDA 


( $C 1 ) ^ Y 






*to 




u Or\ 


♦ 1 M*tD 




KfyJ 






RRk' 
Drvfv. 




09A9 




o o 


Ffl 


u Or\ 


*PQ"T"T 














\JfrtLf 


PA 


1 n 




npp 


*i n 

9 1 u 


09AF 


DO 


F1 




RNF 




09B1 


60 






RTS 




09B2 


20 


88 


FA 


JSR 


$FA88 


09B5 


00 






BRK 




09B6 


90 


OB 




BCC 


$09C3 


09B8 


A2 


00 




LDX 


#$00 


09BA 


00 






BRK 






81 


C 1 




STA 


( *p 1 y i 




PI 


PI 




PMP 


( *p 1 y i 










RFD 






AP 


Fn 

CL/ 


FA 


.IMP 


«PAPn 


09C4 


00 






BRK 










FR 

~ o 


<j or\ 












RRkT 




1*113 PO 


PA 

Uo 


1 n 




npp 


^ 1 rv 










n 1 a 












1 HA 








P 1 




QTA 


*p 1 


09D0 


A9 


02 




1 HA 




09D2 


85 


C2 




QTA 

O I M 


*P7 










1 nA 




\JrUO 


An 






n 1 s 






OO 
70 






TYA 












D|_|/v 

rrlH 








o/ 


pn 


UoK 




rtQHP 














API 
OD 






D| /V 
r L-M 






A*? 


^c 




1 ny 


ik4:'7P 




AP 




FA 


IMP 


*PA^7 
*F" HO / 


\^ / CO 












09E4 


A9 






1 HA 
1 L/ri 




V / CO 






PP 


vJ on 


*P P 


09E9 


A2 


OO 




I— L/ A 




09EB 


00 






BRK 




nQPP 

V./7CU# 


nn 

DU 


CM 




1 HA 


^PPPA Y 
♦P P Cri f A 


yj/Ci 












09F0 


20 


D2 


FF 


JSR 


*FFD2 


09F3 


E8 






INX 




09F4 


EO 


16 




LPX 


»«16 


09F6 


DO 


F5 




BNE 


*09ED 



09F8 


AO 


3B 




LDY 




09Ffi 


20 


C2 


F8 


JSR 


*F8C2 


09FD 


00 






BRK 




09FE 


AD 


39 


02 


LDA 


*0239 


OAOl 


20 


48 


FA 


JSR 


«FA48 


0A04 


00 






BRK 




OA05 


AD 


3A 


02 


LDA 


*023A 


0A08 


20 


48 


FA 


JSR 


«FA48 


OAOB 


00 






BRK 




OAOC 


20 


B7 


F8 


JSR 


*F8B7 


OAOF 


00 






BRK 




OAIO 


20 


8D 


F8 


JSR 


«F88D 


0A13 


00 






BRK 




0A14 


FO 


5C 




BEQ 


*0A72 


0A16 


20 


3E 


F8 


JSR 
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DO 


CC 




BNE 


*OFBC 




OFFO 


20 


CI 


FE 


JSR 


*FEC1 




0FF3 


00 






BRK 






0FF4 


DO 


C7 




BNE 


*OFBD 




0FF6 


88 






DEY 






OFF7 


DO 


EB 




BNE 


*OFE4 




0FF9 


06 


2A 




ASL 


4:2A 




OFFB 


90 


OB 




BCC 


*1008 




OFFD 


BC 


30 


FF 


LDY 


*FF30, 


X 


1000 


OO 






BRK 






1001 


BD 


2A 


FF 


LDA 


*FF2A , 


X 


1004 


OO 






BRK 






1005 


20 


B9 


FE 


JSR 


*FEB9 




1008 


OO 






BRK 






1009 


DO 


B5 




BNE 


*OFCO 




lOOB 


CA 






DEX 






lOOC 


DO 


Dl 




BNE 


*OFDF 




lOOE 


FO 


OA 




BEQ 


$101A 




lOlO 


20 


B8 


FE 


JSR 


*FEB8 




1013 


OO 






BRK 






1014 


DO 


AB 




BNE 


*0FC1 




1016 


20 


B8 


FE 


JSR 


»FEB8 




1019 


00 






BRK 






lOlA 


DO 


A6 




BNE 


*OFC2 




lOlC 


A5 


28 




LDA 


$28 




lOlE 


C5 


ID 




CMP 


$1D 




1020 


DO 


AO 




BNE 


*0FC2 




1022 


20 


69 


FA 


JSR 


♦FA69 




1025 


OO 






BRK 






1026 


A4 


IF 




LDY 


♦ IF 




1028 


FO 


28 




BEQ 


«1052 




102A 


A5 


29 




LDA 


»29 




102C 


C9 


9D 




CMP 


#*9D 





243 



102E 


DO 


lA 




BNE 


«104A 




103O 


20 


IC 


FB 


JSR 


«FB1C 




1033 


OO 






BRK 






1034 


90 


OA 




BCC 


«1040 




1036 


98 






TYA 






1037 


DO 


04 




BNE 


«103D 




1039 


A5 


IE 




LDA 


«1E 




103B 


10 


OA 




BPL 


*1047 




103D 


4C 


ED 


FA 


JMP 


«FAED 




1040 


00 






BRK 






1041 


C8 






I NY 






1042 


DO 


FA 




BNE 


«103E 




1044 


A5 


IE 




LDA 


«1E 




1046 


10 


F6 




BPL 


«103E 




1048 


A4 


IF 




LDY 


♦ IF 




104A 


DO 


03 




BNE 


*104F 




104C 


B9 


C2 


00 


LDA 


«00C2, 


Y 


104F 


OO 






BRK 






1050 


91 


CI 




STA 


(*C1) , 


Y 


1052 


88 






DEY 






1053 


DO 


F8 




BNE 


♦ 104D 




1055 


A5 


26 




LDA 


♦26 




1057 


91 


CI 




STA 


(*C1) , 


Y 


1059 


20 


CA 


FC 


JSR 


♦FCCA 




105C 


00 






BRK 






105D 


85 


CI 




STA 


♦CI 




105F 


84 


C2 




STY 


♦C2 




1061 


A9 


90 




LDA 


#♦90 




1063 


20 


D2 


FF 


JSR 


♦FFD2 




1066 


AO 


41 




LDY 


#♦41 




1068 


20 


C2 


F8 


JSR 


♦F8C2 




106B 


00 






BRK 






106C 


20 


54 


FD 


JSR 


♦FD54 




106F 


00 






BRK 






1070 


20 


41 


FA 


JSR 


♦FA41 




1073 


00 






BRK 






1074 


20 


54 


FD 


JSR 


♦FD54 




1077 


00 






BRK 






1078 


A9 


05 




LDA 


#♦05 




107A 


20 


D2 


FF 


JSR 


♦FFD2 




107D 


4C 


BO 


FD 


JMP 


♦FDBO 




I080 


OO 






BRK 






1081 


A8 






TAY 






1082 


20 


BF 


FE 


JSR 


♦FEBF 




1085 


OO 






BRK 






1086 


DO 


11 




BNE 


♦ 1099 




1088 


98 




/ 


TYA 






1089 


FO 


OE 




BEQ 


♦ 1099 




108B 


86 


IC 




STX 


♦ IC 




1080 


A6 


ID 




LDX 


♦ ID 




108F 


DD 


lO 


02 


CMP 


♦0210, 


X 


1092 


08 






PHP 







244 





E8 




INX 




1094 


86 


ID 


STX 


4;lD 




A6 


IC 


LDX 


SIC 


1098 


28 




PLP 




1099 


60 




RTS 




109A 


C9 


30 


CMP 


#«30 


109C 


90 


03 


BCC 


«10A1 


109E 


C9 


47 


CMP 


#*47 


lOAO 


60 




RTS 




lUHl 


38 




SEC 




1UH2 


60 




RTS 




10A3 


40 




RTI 




10A4 


02 




??? 




10A5 


45 


03 


EOR 


*03 


10A7 


DO 


08 


Br4E 


«10B1 


10A9 


40 




RTI 




lOAA 


09 


30 


ORA 


#*30 


lOAC 


22 




??? 




lOAD 


45 


33 


EOR 


*33 


1 y\ r— 

lUHr 


DO 


08 


BNE 


*10B9 


lOBl 


40 




RTI 




10B2 


09 


40 


□RA 


**40 


10B4 


02 




??? 




lOBS 


45 


33 


EOR 


*33 


10B7 


DO 


08 


BNE 


$10C1 


10B9 


40 




RTI 




lOBA 


09 


40 


ORA 


#«40 


lOBC 


02 




??? 




lOBD 


45 


B3 


EOR 


«B3 


lOBF 


DO 


08 


BNE 


*10C9 


lOCl 


40 




RTI 




10C2 


09 


OO 


ORA 


#«00 


10C4 


GO 




BRK 




IOCS 


22 




??? 




10C6 


44 




??? 




10C7 


33 




??? 




IOCS 


DO 


8C 


BNE 


$1056 


lOCA 


44 




??? 




lOCB 


00 




BRK 




lOCC 


00 




BRK 




lOCD 


1 1 


22 


ORA 


(«22> , 


lOCF 


44 




?V? 




lODO 


33 




??? 




lODl 


DO 


8C 


BNE 


*105F 


10D3 


44 




??? 




10D4 


9A 




TXS 




idDS 


lO 


22 


BPL 


♦ 10F9 


lUli/ 






??? 




10D8 


33 




7?? 




10D9 


DO 


08 


BNE 


«10E3 


lODB 


40 




RTI 




lODC 


09 


10 


ORA 


tt«10 



lODE 


22 






??? 




lODF 


44 






??? 




lOEO 


33 






??? 




lOEl 


DO 


08 




BNE 


«10EB 


10E3 


40 






RTI 




10E4 


09 


62 




ORA 


*«62 


10E6 


13 






??? 




10E7 


78 






SEI 




10E8 


A9 


00 




LDA 


4i«00 


lOEA 


00 






BRK 




lOEB 


21 


81 




AND 


(«81,X) 


lOED 


82 






??? 




lOEE 


00 






BRK 




lOEF 


00 






BRK 




lOFO 


OO 






BRK 




lOFl 


00 






BRK 




10F2 


59 


4D 


91 


EQR 


*914D.Y 


10F5 


92 






??? 




10F6 


86 


4A 




STX 


$4A 


10F8 


85 


9D 




STA 


$9D 


lOFA 


2C 


29 


2C 


BIT 


*2C29 


lOFD 


23 






??? 




lOFE 


28 






PLP 




lOFF 


24 


59 




BIT 


*59 


1 101 


OO 






BRK 




1 102 


OO 






BRK 




1 103 


58 






CLI 




1 104 


24 


24 




BIT 


:(24 


1 106 


00 






BRK 




1 107 


00 






BRK 




1 108 


IC 






777 




1 109 


8A 






TXA 




1 lOA 


IC 






777 




1 lOB 


23 






777 




1 IOC 


5D 


88 


IB 


EOR 


$1B8B, X 


1 lOF 


Al 


9D 




LDA 


(*9D, X) 


1111 


8A 






TXA 




1112 


ID 


23 


9D 


ORA 


*9D23 , X 


1 1 15 


8B 






777 




1116 


ID 


Al 


OO 


ORA 


*OOA 1 , X 


1 1 19 


00 






BRK 




1 1 1 A 


29 


19 




AND 


#$19 


1 1 IC 


AE 


69 


A8 


LDX 


$A869 


1 1 IF 


19 


23 


24 


□RA 


$2423 , Y 










777 




X X 


1 R 

X D 






777 




X X 








777 




X X 4C%J 


24 


53 




BIT 


*53 


1127 


19 


Al 


00 


□RA 


*OOAl ,Y 


112A 


00 






BRK 




112B 


lA 






??? 




112C 


5B 






??? 





246 



1 1 on 


3d 






??? 




1 l.£t. 


A5 


69 




LDA 


♦69 


1 130 


24 


24 




BIT 


*24 


1 132 


AE 


AE 


A8 


LDX 


♦A8AE 


1 135 


AD 


29 


OO 


LDA 


*0029 


1 loo 


oo 






BRK 




4 4 'TO 

1 lo¥ 


7C 






??? 




1 loH 








BRK 




1 13B 


oo 






BRK 




4 4 Tr* 


4 c 

15 






□RA 


*9C, X 


4 4 

1 13b 


6D 


9C 


A5 


ADC 


*A59C 


4 4 Jl 4 
1 1*»1 


of 


oo 




ADC 


#*29 


4 4 JtT 
X l^O 


3o 






??? 


»13 


4 4 il il 
1 I'J'I 


O Jl 


13 




STY 


1 146 


34 






??? 




1 147 


1 1 


A5 




□RA 


<*AS) 


1 149 


69 


23 




ADC 


#423 


1 14B 


AO 


D8 




LDY 


#♦08 


1 14D 


62 






??? 




1 14E 


5A 






??? 




1 14F 


48 






PHA 




1 150 


26 


62 




ROL 


♦62 


1 152 


94 


88 




STY 


♦88, X 


1 154 


54 






??? 




1 155 


44 






??? 




1 156 


C8 






INY 




1 157 


54 






??? 




1 158 


68 






PLA 




1 159 


44 






??? 




1 ISA 


E8 






INX 




1 15B 


94 


OO 




STY 


♦OO, X 


1 15D 


00 






BRK 




1 15E 


B4 


08 




LDY 


♦08, X 


1 160 


84 


74 




STY 


♦74 


1 162 


B4 


28 




LDY 


♦28, X 


1 164 


6E 


74 


F4 


ROR 


♦F474 


1 167 


CC 


4A 


72 


CPY 


♦724A 


4 4 

1 Ion 


CO 






??? 




4 4 Z.D 

1 loo 


H*f 


8A 




LDY 


♦8A 


1 16D 


00 






BRK 




1 16E 


00 






BRK 




1 16F 


AA 






TAX 




1 170 


A2 


A2 




LDX 


#^A2 


1 172 


74 






??? 




1 173 


74 










4 4 ~IJI 
1 1 /H 


74 










4 4 "TK 
1 1 /5 


72 










1 176 


44 






??? 




1177 


68 






PLA 




1178 


B2 










1179 


32 






??? 




117A 


B2 






??? 





1 17B 


00 






BRK 




1 17C 


00 






BRK 




1 17D 


22 






??? 




1 17E 


00 






BRK 




1 17F 


00 






BRK 




1 180 


lA 






777 




1 181 


lA 






??? 




1 182 


26 


26 




ROL 


*26 


1 1 R4 


72 






777 




1 1 RS 


72 






777 




1 186 


88 






DEY 




1 187 


C8 






I NY 




1 188 


C4 


CA 




CRY 


$CA 


1 18A 


26 


48 




ROL 


^48 


1 18C 


44 






??? 




1 18D 


44 






777 




1 18E 


A2 


C8 




LDX 


tt$C8 


1 190 


3A 






777 






TR 






777 




1 192 


52 






777 




X X TO 


4D 


47 


58 


EOR 


$5847 


1 196 


4C 


53 


54 


J MP 


$5453 


X X 77 


■TO 


48 




LSR 


$48 


1 1 QR 
X X 7D 








777 




X X 7L« 








BVC 


$1 ICA 


1 19E 


41 


42 




EOR 


<$42, X) 


1 1 AO 


F9 


OO 


35 


SBC 




1 1A3 


F9 


00 


CC 


SBC 


$CCOO . Y 


1 1A6 


F8 






SED 




1 1A7 


OO 






BRK 




1 1A8 


P7 






777 




1 1A9 


F8 






SED 




1 lAA 


OO 






BRK 




1 lAB 


56 


F9 




LSR 


♦F9, X 


1 IAD 


OO 






BRK 




1 1 AP 
X xraL 


R<7 






777 




1 1 AF 

X X 


F9 


OO 


F4 


SBC 


♦F400 , Y 


1 1 R*? 

X X X>Jm 






rtP 


QRP 


*oroo Y 


X X 


PA 
r M 






777 




1 1 RA 
X X DO 








RRI^ 




1 1 R7 
X X / 


•TP 


PR 




Rni 

r\ui_ 


^nnPR X 

^ w/r D f A 


1 1 RA 
X X on 


92 






777 




1 1 RR 

X X DI7 


PR 






777 




1 1 RP 
X X Dlrf 


flft 






BRK 




1 1 Rn 

X X DU 


PO 


PR 




PPY 


w^r o 


1 1 RP 

X X o~ 


w 










X X t^\J 








QPP 




1 ICl 


FC 






??? 




11C2 


OO 






BRK 




11C3 


SB 






??? 




11C4 


FD 


OO 


8A 


SBC 


$8AOO,X 


11C7 


FD 


00 


AC 


SBC 


$ACOO,X 



248 



1 ICA 


FD 


00 


46 


1 ICD 


F8 














1 1 PP 


■TIT 








r / 






1 mi 

X X tj X 








X X 




n / 


OO 


1 IDS 


OD 


20 


20 


1 1D8 


20^ 


50 


43 


1 IDB 


20 


20 


53 


1 IDE 


52 






IIDF 


20 


41 


43 


11E2 


20 


58 


52 


11E5 


20 


59 


52 


11E8 


20 


53 


50 



SBC «4600, 

SED 

BRK 

??? 
??? 
BRK 

SBC »OOF7 
ORA $2020 
JSR *4350 
JSR ♦5320 

??? 

JSR *4341 
JSR «5258 
JSR *5259 
JSR «5053 



Extramon: A Machine Code Assembler 



100 PRINT-TINY PEEKER/POKER" 

110 X*="«": INPUTX*: IFX*="»"THENEND 

120 G0SUB500 

130 IF E G0T0280 

140 A=V 

150 IFJ>LEN(X*)GQT0300 

160 FQRI=0TQ7 

170 P=J:G0SUB550 

180 C(I)=V 

170 IF E GOTO 280 

200 NEXT I 

210 T=0 

220 F0RI=0T07 

230 POKE A+I,C(I) 

240 T=T+C(I) 

250 NEXT I 

260 PRINT"CHECKSUM=";T 
270 BOTOllO 

280 PRINTMID*(X*, 1 ,J) ; '■??": GOTOl lO 

300 T=0 

310 FORI=OTD7 

320 V=PEEK(A+I) 

330 T=T+V 

340 V=V/16 

350 PRINT " "5 

360 FORJ=lTa2 

370 V/.=V 

380 V=(V-V7.)*16 

390 IFV7.>9THENV7.=V/.+7 

400 PRINTCHR*(V/.+48) ! 

410 NEXT J 

420 NEXT I 

430 PRINT "/";T 

440 GOTOl 10 

500 P=l 

510 L=4 

520 GOT0600 

550 P=J 

560 L=2 

6O0 E=0 

61 O V=0 

620 FORJ=P TO LEN(X*) 
630 X=ASC<MID*(X*, J) ) 
640 IFX=32 THEN NEXT J 
650 IFJ>LEN(X*) THEN790 
660 P=J 

670 FQRJ=PTOLEN(X*) 
680 X=ASC<MID*(X*,J) ) 



250 



690 IF X032 THEN NEXT J 
700 IF J-POL THEN 790 
710 F0RK=PTDJ-1 
720 X=ASC(MID*(X*,K) ) 
730 IF X<58 THENX=X-4a 
740 IF X>64 THEN X=X-55 
750 IF X<0 OR X>15 THEN790 
760 V=V*16+X 
770 NEXT K 
780 RETURN 
790 E=-l 
800 RETURN 



oam:> oo ifi 08 64 00 99 22 93 

Oaoa 12 ID ID ID ID 53 55 50 

oeiO 45 52 20 36 34 2D 4D 4F 

0818 4E 00 31 08 6E 00 99 22 

0820 11 20 20 20 20 20 20 20 

0828 20 20 20 20 20 20 20 20 

0B30 OO 4B 06 78 00 99 22 11 

0838 20 2E 2E 4A 49 4D 20 42 

0840 55 54 54 45 52 46 49 45 

0848 4C 44 00 66 08 62 OO 9E 

0B50 28 C2 28 34 33 29 AA 32 

0858 35 36 AC C2 28 34 34 29 

0860 AA 31 32 37 29 00 OO 00 

0868 AA AA AA AA AA AA AA AA 

0870 AA AA AA AA AA AA AA AA 

0878 AA AA AA AA AA AA AA AA 



. : OAOO 02 20 46 FA 00 AD 3A 02 
. ! 0AO8 20 48 FA OO 20 B7 FB OO 
.lOAlO 20 8D F8 00 FO 5C 20 3E 
.:OA16 F8 00 20 79 FA OO 90 33 
. ! 0A20 20 69 FA 00 20 3E FB 00 
.:0A2e 20 79 FA 00 90 28 20 69 
.:0A30 FA OO A9 90 20 D2 FF 20 
.J0A3S El FF FO 3C A6 26 DO 38 
.!0A40 A5 C3 C5 CI AS C4 E5 C2 
.!0A4e 90 2E AO 3A 20 C2 F8 00 
. : 0A50 20 41 FA OO 20 8B FS OO 
.:0A58 FO EO 4C ED FA 00 20 79 
.!0fl6O FA OO 90 03 20 80 FB 00 
.:0A6B 20 B7 FB OO DO 07 20 79 
.:0A70 FA OO 90 EB A9 OB 85 ID 
.:0A78 20 3E F8 00 20 Al F8 OO 



.:i:COO 60 fi2 02 2C A2 00 00 B4 

.:0C08 CI DO OS B4 C2 DO 02 E6 

.:OCli.) 26 D6 C2 D6 CI 60 20 3E 

.:0C18 FB 00 C9 20 FO F9 60 A9 

,:0C20 00 00 BD 00 00 01 20 CC 

.:0C2B FA 00 20 8F FA 00 20 7C 

.:'iC3i' FA 00 90 09 60 20 3E FS 

.:0C38 00 20 79 FA 00 Bo DE AE 

. H.1C4I.I 3F 02 9A A9 90 20 D2 FF 

.:0C48 A9 3F 20 D2 FF 4C 47 F8 

.:OC50 00 20 54 FD 00 CA DO FA 

. : OCSS 60 E6 C3 DO 02 E6 C4 60 

,:0C60 A2 02 B5 CO 48 B5 27 95 

.!<:C6B CO 6B 95 27 CA DO F3 60 

.:OC70 A5 C3 A4 C4 38 E9 02 BO 

.:':iC78 OE 88 90 OB A5 28 A4 29 



;OH80 A5 2D 85 22 A5 2E B5 23 
:0888 A5 37 85 24 AS 38 85 25 
=0890 AO 00 AS 22 DO 02 C6 23 
:0898 C6 22 Bl 22 DO 3C A5 22 
:08A0 Do 02 C6 23 C6 22 81 22 
:OSAa FO 21 65 26 A5 22 DO 02 
jOBBo Cb 23 C6 22 Bl 22 18 65 
:08B8 24 AA AS 26 65 25 48 A5 
:08C0 37 DO 02 Cfc 36 C6 37 68 
:08C8 91 37 BA 48 AS 37 DO 02 
:08D0 C6 38 C6 37 68 91 37 IB 
:0BD8 90 B6 C9 4F DO ED A5 37 
:08E0 85 33 AS 38 B5 34 6C 37 
lOBEe OO 4F 4F 4F 4F AD E6 FF 
sOBFO 00 80 16 03 AD E 7 FF 00 
:0BF8 8D 17 03 A9 80 20 90 FF 



.:0A80 DO FB 4C 47 FB 00 20 CF 
.:OA88 FF C9 OD FO OC C9 20 DO 
.I0A90 Dl 20 79 FA 00 90 03 20 
. : 0A98 BO FB OO A9 90 20 D2 FF 
. ! OAAO AE 3F 02 9A 78 AD 39 02 
. ! 0AA8 48 AD 3A 02 46 AD 3B 02 
. ! OABO 48 AD 3C 02 AE 3D 02 AC 
. : OABB 3E 02 40 A9 90 20 D2 FF 
. : OACO AE 3F 02 9A 6C 02 AO AO 
.:0AC8 01 84 BA 84 B9 88 84 B7 
. ! OADO 84 90 84 93 A9 40 85 BB 
. ! OADB A9 02 85 BC 20 CF FF C9 
.:OAEO 20 FO F9 C9 OD FO 38 C9 
.;OAEB 22 DO 14 20 CF FF C9 22 
.:OAFO FO 10 C9 OD FO 29 91 BB 
.:0AF8 E6 B7 C8 CO lO DO EC 4C 



.:OCaO 4C 33 FB OO AS C3 A4 C4 

.iOCBB 38 E5 CI 85 IE 98 E5 C2 

.:OC90 AB 05 IE 60 20 D4 FA OO 

.:0C98 20 69 FA 00 20 E5 FA 00 

. ! OCAO 20 OC FB 00 20 E5 FA OO 

.:0CA8 20 2F FB 00 20 69 FA 00 

.:OCBO 90 15 A6 26 DO 64 2^ 23 

.:iJCB8 FB 00 90 5F Al CI 81 C3 

. :OCCO 20 OS FB Oi) 20 33 FB OO 

.:OCCB DO EB 2i:. 28 FB 00 18 A5 

.:OCDO IE 65 C3 85 C3 96 65 C4 

. : OCL-a 85 C4 20 OC FB 00 A6 26 

.:OCE0 DO 3D Al CI 61 C3 20 26 

.lOCEB FB 00 BO 34 20 BB FA 00 

.:OCFO 20 BB FA 00 4C 7D FB 00 

.:0CF8 20 D4 FA Oit 20 69 FA CKj 



:090if OO OO DB 68 BD 3E 02 68 
S0908 8D 3D 02 68 SD 3C 02 68 
:0910 BD 3B o2 68 AA 68 A8 38 
J0918 8A E9 02 8D 3A 02 98 E9 
J0920 OO OO 8D 39 02 BA BE 3F 
S0928 02 20 57 FD OO A2 42 A9 
J093O 2A 20 57 FA OO A9 52 DO 
:0938 34 E6 CI DO 06 E6 C2 DO 
!0940 o2 E6 26 60 20 CF FF C9 
:0948 OD DO FB 68 68 A9 90 20 
!095o D2 FF A9 oO oO 85 26 A2 
!09Sa OD A9 2E 20 57 FA 00 A9 
:O960 05 20 D2 FF 20 T£ FB 00 
:096a C9 2E FO F9 C:9 20 FO F5 
:0970 A2 OE DD B7 FF OO DO OC 
:097B 8A OA AA BD L7 FF 00 48 



.;0B00 ED FA 00 20 CF FF C9 OD 

.:OBOB FO 16 C9 2C DO DC 20 88 

,:OBJO FA OO 29 OF FO E9 C9 03 

•sOBlB FO E5 85 BA 20 CF FF C9 

.:OB20 OD 60 6C 30 03 6C 32 03 

. : 0B2a 20 96 F9 OO DO D4 A9 90 

.S0B30 20 D2 FF A9 OO 00 20 EF 

.:0B3B F9 OO AS 90 29 10 DO C4 

,jOB40 4C 47 F8 OO 20 96 F9 OO 

. ! 0B4B C9 2C DO BA 20 79 FA OO 

. : 0B50 20 69 FA OO 20 CF FF C9 

. : 0B58 2C DO AD 20 79 FA 00 A5 

.:OB60 CI 85 AE A5 C2 85 AF 20 

. : 0B68 69 FA OO 20 CF FF C9 OD 

. : 0B7O DO 9B A9 90 20 D2 FF 20 

.:OB78 F2 F9 00 4C 47 F8 00 AS 



.:uDOO :ro E5 FA 00 20 69 FA OO 

. : ODOa 20 3E FB 00 20 B8 FA OO 

.:(.)D10 90 14 85 ID A6 26 DO 11 

.:0D18 2u 2F FB 00 90 OC AS ID 

.:0D2i:) 81 CI 20 33 FS 00 DO EE 

.:0D2B 4C ED FA OO 4C 47 FB OO 

.:0D30 20 D4 FA iXf 30 69 FA 00 

.:0D3a 20 E5 FA 00 20 69 FA OO 

. ! OD40 20 3E F8 00 A2 OO 00 20 

.:0D4e 3E FB CK) C9 27 DO 14 20 

.;0D5i> 3E FB OO 9D 10 02 E8 20 

. :ODSa CF FF C9 OD FO 22 EO 20 

.:0D60 DO Fl FO IC 8E 00 OO 01 

.:0D6a 20 BF FA 00 90 C6 9D 10 

.:0D7u 02 EB 20 CF FF C9 OD FO 

.:0D7B 09 20 88 FA OO 90 B6 EO 



:0980 BD C6 FF OO 48 60 CA 10 . : OBBo C2 20 

:0988 EC 4C ED FA 00 AS CI 80 .:0B88 4A 4A 

: 0990 LA 02 AS C2 BD 39 02 60 . j 0B90 AA 68 

J 0998 A9 Oa 85 1 AO OO 00 20 . 1 0B98 48 8A 

:09A0 54 FD 00 Bl CI 20 48 FA .sOBAO FF 09 

:09Ae OO 20 33 FB OO C6 ID DO . i OBAB 06 60 

; 09B< > F 1 60 20 88 FA 00 90 OB . : OBBO CZ 95 

:09Ba A2 OO OO Bl CI CI CI FO .SOBB8 F3 60 

!09CO 03 4C ED FA 00 20 33 FB . : OBCO 85 C2 

109C8 OO C6 ID 60 A9 3B 85 CI .:0BCB 85 CI 

: 09D0 A9 02 85 C2 A9 OS 60 98 . j OBDO 20 3E 

:09D8 4B 20 57 FD OO 66 A2 2E . i OBDS 20 3E 

:09E0 4C 57 FA OO A9 90 20 D2 .sOBEO 18 60 

: 09EB FF A2 OO 00 BD EA FF OO . : 0BE8 OA OA 

:09F0 20 D2 FF EB EO 16 DO F5 .:OBFO 20 AF 

!09FB AO 3B 20 C2 FS OO AD 39 .:OBFB C9 3A 



48 FA 00 A5 CI 48 . : ODBO 20 DO EC 86 IC A9 90 20 

4A 4A 20 60 FA 00 .rODSB 02 FF 20 57 FD 00 A2 00 

29 OF 20 60 FA OO . ! 0D9i:i 00 AO 00 00 Bl CI DD lO 
20 D2 FF 68 4C D2 . ! 0D98 02 DO OC C8 EB E4 IC DO 

30 C9 3A 90 02 69 . : ODAO F3 20 41 FA <X) 20 34 FD 
A2 02 B5 CO 4B B5 . : 0DA8 OO 20 33 FB 00 A6 26 DO 
CO 68 95 C2 CA DO . : ODBO BD 20 2F FB OO BO DD 4C 
20 88 FA 00 90 02 . : ODBB 47 F8 OO 20 04 FA 00 85 
20 8B FA OO 90 02 . : ODCO 20 AS C2 85 21 A2 iX> OO 
60 A9 00 00 85 ZA . : 0DC8 86 28 A9 93 20 D2 FF A9 
FB 00 C9 20 DO 09 . !i>DDi> 90 20 D2 FF A9 16 85 ID 
FB OO C9 20 DO OE . : 0DD8 20 6A FC 00 20 CA FC OO 
20 AF FA iX> OA OA .:ODEo 85 CI 84 C2 C6 ID DO F2 
85 2A 20 3E FB OO . ! 0DE8 A9 91 20 D2 FF 4C 47 FB 
FA 00 05 2A 36 60 .:OOFi.> 00 AO 2C 20 C2 FB 00 20 
90 02 69 08 29 OF . : 0DF8 54 FD 00 20 41 FA 00 20 
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.sOeou 54 FD UU A2 VO OO A! CI 

.!i>EuB 20 D9 FC OO 4B 2u IF FD 

.:i.iEli;i ilMi 66 20 35 FD OO fl2 06 

.!0E18 EO 03 DO 12 A4 IF FO OE 

.:0E20 A5 2A C9 E8 Bl CI BO IC 

.10E28 20 C2 FC 00 88 DO F2 06 

.;«->E3i-' 2A 90 oe. BD 2A FF 0*} 20 

.10ES8 A5 FD 00 8D 30 FF iXt FO 

.:OE40 113 20 A5 FD 00 CA DO 05 

. i OE48 60 20 CD FC UO AA EB DO 

.:OE50 111 ca 98 20 C2 FC OO BA 

.iOE58 86 IC 20 48 FA 00 A6 IC 

.:i^60 60 AS IF 38 A4 C2 AA 10 

.:0E68 Ot 88 65 CI 90 01 CS 60 

.:0E70 AB 4A 90 OB 4A BO 17 C9 

.!0E7B 22 FO 13 29 07 09 80 4A 



.:ijF80 F6 CA DO ED A2 02 20 DF 

.;OFBS FF C9 OD FO IE C9 20 FO 

.:0F90 F5 20 DO FE OO BO OF 20 

,iOF98 9C FA Ou A4 CI 84 C2 B5 

.:OFAO CI A9 30 90 10 02 E8 9D 

.lOFAe 10 02 E8 DO DB 86 2B A2 

. t OF BO 0<3 OO 86 26 FO 04 E6 26 

.sOFBB FO 75 A2 00 00 86 ID AS 

.;OFC0 26 20 09 FC OO A6 2A 86 

.:0FC8 29 AA BC 37 FF OO BD 77 

.;|JFD0 FF OO 20 B9 FE OO DO E3 

.(0FD8 A2 06 EO 03 DO 19 A4 IF 

. iOFEO FO IS AS 2A C9 E8 A9 30 

.:0FE8 BO 21 20 BF FE 00 DO CC 

.iOFFO 20 CI FE OO DO C7 88 DO 

.lOFFB EB 06 2A 90 OB BC 30 FF 



.jllOO 59 OO OO 58 24 24 OO OO 
.tll08 IC 8A IC 23 5D SB IB Al 
.III to 90 BA ID 23 90 8B ID Al 
.:1118 OO 00 29 19 AE 69 AS 19 
.11120 23 24 53 IB 23 24 53 19 
.11128 Al OO 00 lA SB SB AS 69 
. I 1 1 30 24 24 AE AE AB AO 29 OO 
.11138 OO 7C OO OO 15 9C 60 9C 
.11140 AS 69 29 S3 84 13 34 11 
.:1148 A5 69 23 AO OB 62 5A 48 
.illSO 26 62 94 88 S4 44 C8 34 
.illSe 68 44 E8 94 OO 00 B4 OB 
.1II6O 84 74 84 28 6E 74 F4 CC 
.1II68 4A 72 F2 A4 8A 00 00 AA 
.11170 A2 A2 74 74 74 72 44 6B 
. 1 1 1 78 B2 32 B2 OO 00 22 00 OO 



.sOEBO AA BD D9 FE OO BO 04 4A 
. : OESe 4A 4A 4A 29 OF DO 04 AO 
.:OE90 80 A9 iX' OO AA BD 10 FF 
.S0E9B Ou 85 2A 29 03 85 IF 98 
. : ijEAO 29 BF AA 98 AO 03 EO 8A 
. : 0EA8 FO OB 4A 90 08 4A 4A 09 
.lOEBO 20 B8 DO FA C8 88 00 F2 
.:0EB8 60 Bl CI 20 C2 FC OO A2 
-sOECO 01 20 FE FA 00 C4 IF C8 
.(0EC8 90 Fl A2 03 CO 04 90 F2 
. f OEDO 60 A8 B9 37 FF OO 8S 28 
. 1 OEDe B9 77 FF 00 BS 29 A9 OO 
. : OEEiJ 00 AO 05 06 29 26 2B 2A 
.:OEEa BB DO FB 69 3F 20 02 FF 
. I OEFO CA 00 EC A9 20 2C A9 OD 
,:OEFB 4C D2 FF 20 04 FA 00 20 



. i lOUO 00 BO 2A FF 00 20 B9 FE 
.tlOOB 00 DO BS CA DO Dl FO OA 
. : 1010 20 BB FE OO DO AB 20 BB 
.:1018 FE 00 00 A6 AS 26 CS ID 
.11020 00 AO 20 69 FA 00 A4 IF 
.I1028 FO 28 A5 29 C9 9D DO lA 
.11030 20 IC FB 00 90 OA 98 DO 
.:1038 04 AS IE lO OA 4C ED FA 
.11040 00 C8 DO FA AS IE lO F6 
.11048 A4 IF DO 03 B9 C2 OO OO 
.ilOSO 91 CI 88 DO F8 AS 26 91 
.11058 CI 20 CA FC OO 85 CI 84 
.1IO6O C2 A9 90 20 02 FF AO 41 
.1IO6B 20 C2 FB 00 20 54 FD OO 
.11070 20 41 FA 00 20 54 FD OO 
.11078 A9 05 20 D2 FF 4C BO FD 



1180 lA lA 26 26 72 72 88 CB 
1 188 C4 CA 26 48 44 44 A2 CB 
1190 3A 3B 52 40 47 58 4C 53 
119B 54 46 48 44 50 2C 41 42 
1 lAO F9 00 35 F9 00 CC F8 OO 
11A6 F7 F8 00 56 F9 OO 89 F9 
HBO 00 F4 F9 00 OC FA OO 3E 
11B8 FB 00 92 FB 00 CO FB 00 
I ICO 38 FC 00 5B FD 00 BA FD 
tlCB 00 AC FD 00 46 F8 OO FF 
IIDO F7 00 ED F7 OO 00 20 20 
1108 20 SO 43 20 20 S3 52 20 
UEO 41 43 20 SB 52 20 59 S2 
1IE8 20 53 SO 58 80 01 22 20 



: OF 00 


69 


FA 


00 


20 


E5 


FA 


00 


20 


. t 1080 


00 


A8 


20 


BF 


FE 


00 


DO 


n 


lOFOB 


69 


FA 


00 


A2 


00 


OCi 


86 


28 


. 1 1088 


98 


FO 


OE 


66 


IC 


A6 


ID 


00 


n:>F10 


A9 


90 


20 


02 


FF 


20 


57 


FO 


. ! 1090 


10 


02 


06 


E8 


86 


10 


A6 


IC 


lOFlB 


00 


20 




FC 


00 


20 


CA 


FC 


. 1 1098 


28 


60 


C9 


30 


90 


03 


C9 


47 


:OF2o 


00 


85 


CI 


84 


C2 


20 


EI 


FF 


. t lOAO 


60 


36 


60 


40 


02 


4S 


03 


DO 


iOf-2B 


FO 


05 


20 


2F 


FB 


00 


BO 


E9 


. 1 lOAB 


06 


40 


09 


30 


22 


45 


33 


DO 


lOF 30 


4C 


47 


FB 


00 


20 


D4 


FA 


00 


. 1 lOBO 


OB 


4t. 


09 


40 


02 


45 


33 


DO 


I OF 38 


A9 


03 


85 


ID 


20 


3E 


FB 


00 


. 1 10B8 


oe 


40 


09 


40 


02 


4S 


B3 


DO 


10F40 


20 


Al 


FB 


Oi> 


00 


F8 


AS 


20 


. 1 lOCO 


OS 


40 


09 


00 


00 


22 


44 


33 


10F48 


65 


CI 


AS 


21 


85 


C2 


4C 


46 


. 1 10C8 


DO 


8C 


44 


00 


00 


1 1 


22 


44 


10F50 


FC 


00 


CS 


26 


FO 


03 


20 


02 


. 1 tODO 


33 


DO 


8C 


44 


9A 


10 


22 


44 


■.OF SB 


FF 


60 


20 


04 


FA 


00 


20 


69 


. 1 1008 


33 


DO 


08 


40 


09 


10 


22 


44 


1OF6O 


FA 


00 


BE 


1 1 


02 


A2 


03 


20 


. 1 lOEO 


33 


00 


06 


40 


09 


62 


13 


76 


1OF68 


CC 


FA 


00 


4B 


CA 


DO 


F9 


A2 


. I 10E8 


A9 


00 


00 


21 


81 


82 


00 


00 


J OF 70 


03 


68 


38 


E9 


3F 


AO 


05 


4A 


. t lOFO 


00 


00 


59 


4D 


91 


92 


86 


4A 


1 OF 78 


6E 


1 1 


02 


6F 


10 


02 


68 


DO 


. 1 10F6 


6S 


9D 


2C 


29 


2C 


23 


26 


24 



Instructions for antaring and using Sup«rmon64 



Entvring the program 



Entvr in inowdiats modar: 

POKE B192,0-.P0KE 44,32:NEW <rsturn; 

This ntov«s thv start of Basic to d«cinal 12600, 
and gives us room to put in Suparmon. Nom type in 
Tiny Peeker /Poker. 

Run the program, and in answer to the question 
prompt type in the memory address and memory 
contents as given in the 20 blocks oi data at the 
end of this section. Vou can look at memory Just 
by entering the memory address. 

When you've finished, type in immediate mode 1 

POKE 44,08iCLR <return> 

Mhich puts Basic back to normal again. You can 
noM save Supermon by using a normal Basic SAVE. 
Before running it, you'll need to check that its 
all there, so in immediate mcKle, enter the 
folloMing line (you'll need to use Basic 
abbreviations e.g. '7' for PRINT, P shifted E for 
PEEK, and so on, to fit it all in): 
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n-liFORJ»OTOia3F0RI-204B+12e«NT02O47'i-12B*N:A-A+ 
PEEK ( I ) ! NEXTi PRINTAi J: A-O: N-N+ 1 i M-M+1 : NEXTJ 



This shc3uld display ths following numbsrs on your 
Bcrs0n, togathar with the block nu«b«r : 

10021, 13841, 147&2, 1S2B3, 14641, 16091, 16771, 
13076, 15720, 14716, 14189, 15165, 14543, 15051, 
14669, 16467, 16259, 9635, 11241 

although thay'll b« in column form on th* scmn. 
Dum to th« vagariss of Basic tha first numbar 
might diffar (I got 12205 oncal), but running tha 
chacfc again should sort it out. If ona of your 
numbars disagraes, wa'll naad to go back to tha 
baginning with Tiny Paakar again. So, antar tha 
first sat of POCEs again <5uparmon will still ba 
thara) , antar or re-load Tiny Peeker, and check 
each incorrect block. The last block will hava to 
be checked by hand. 

l#>en you ve dona that, enter POKE 44,08:CLR again, 
re-SAVE Super mon , and run the checking program. 
When you'ba finally got it right, tha 64 is yours 
for tha disassembling! 



Using Supermon 64 



This will be given in the form COWIAND, followed 
by the syntax. 

1) Simple Assembler 
.A 2000 LDA#12 

start assembly at 2O00 hex. 

2) Disassembler 

.D 2OO0 

disassemble hex from 2000 onwards. 

3) Printing Disassembler 

.P 2000,2040 

engage printer beforehand with □PEN4,4t CMD4. 

4) Fill memory 
.F lOOO 1100 FF 

fill memorv from lOOO to 1100 hex with the bvte 
FF. 

5) Go run 
.G lOOO 

go to hex 1000 and execute program there. 

6 ) Hun t memor y 

.H COOO DOOO READ 

look from COOO to DOOO for the ASCII string READ. 

7) Load 

.L "FRED", 08 

B> Memory display 
.M 0800 0820 

display memory from hex 0800 to 0B20. 

9) Register display 
.R 

di spl avs regi ster values when Extramon was 
enter ad. 

10> Save 

.S " 0» FRED ", OB, 0800,0820 

save memory from hex 08O0 to 0S20 onto device 08 
drive 1, and call that portion of memorv FRED. 

11) Transfer memory 

.T lOOO 1100 5000 

transfer memory in tha range hex lOOO to 1100 and 
start storing it at hex 5000 onwards. 

12) Exit to Basic 
.D 

return to Basic ready mode. Perform a CLR before 
doing anything. 



Index 



6566 Video Interface Chip, 78-94 

6581 video chip description, 170-8 

Adding commands to Basic, 203 

Adding commands: concepts, 209; characters, 216, 217 

Advanced l<eyboard listing, 193-6 

Alpine Slopes listing, 67-70 

Android Nim, 34, 35; listing, 36-41 

ASCII characters, 31,32 

Assembler listing, 224-9 

Assembler: Basic program, 250-1 ; hex dump, 251, 252; 

commands, 252,253 
Attack/decay /sustain/release/listing, 184 
Attack/decay settings, 154 
Background colours, 21 
Bit map code, 82-4 
Bits, 12, 13, 14 
Border colours, 21 
Bouncing blob listing, 20, 21 
Bytes, 12, 13, 14 
Character display mode, 78-80 
Character memory map, 97, 98 
Character selection, 98 
Character set: altering, 100-2 
Character generator listing, 112-15 
Character Get routine, 210, 211 ; alteration, 214, 215 
CHR$ characters, 28, 29, 30 
Colour selection, 27, 28 
Colours available, 19 
Commodore 64 Basic, 206, 208 
Commodore Basic, 205 
CTRL key, 20 
Cursor codes, 22 
Deathtrap listing, 198-201 
Decimal, 12, 13, 14 
Dec/binary converter, 204 
Duckworth duck listing, 51 
Envelope generating, 147, 149, 150, 179 
Envelope rates, 175 
Envelope shapes, 180 
Extended colour mode, 81 , 82, 1 09 
Filtering, 148, 149, 176-8, 185, 186 



254 



Function keys, 26, 219-22 

Graph plotting, 33, 34 

Graphics modes, 105, 106 

Hexadecimal, 12, 13, 14 

Hex/dec converter, 204 

High Resolution introduction, 121 

High resolution m/c routines, 134-7 

Interrupt registers, 90, 91 

Keyboard tour, 25, 26 

Keyboard tricks, 33 

Light pens, 90 

Lower case, 30 

Memory interfacing, 93, 94 

Memory banking, 99 

Memory architecture, 207 

Movemaze listing, 116-19 

Multiple voice manipulation, 168, 169 

Multi-colour char, mode, 80,81, 106 

Multi-colour bit mapping, 126 

Music: some physics, 162, 163 

Musical symbols, definitions, 140-2 

Musical notes table, 156, 157 

Musical tunes, 158, 159 

Musical values, 161, 162 

Musical keyboard listing, 165-7 

Musical instruments, 189-90 

OLD command listing, 217 

OR command, 14 

Pulse widths, 189 

Raster register, 90 

Ring modulation, 148, 172, 187-8 

Screen resolution, 15 

Screen locations, 18 

Screen colours, 19 

Screen blanking, 88 

Screen scrolling, 89, 90 

Screen: row & column select, 89 

SID chip overview, 144, 145 

SID registers, 145, 146 

SID memory map, 152, 153 

Sound: an introduction, 139-44 

Space Battle listing, 56-9 

Sprite resolution, 43 

Sprite memory, 44, 50, 87, 88 

Sprite data map, 46, 47 

Sprite generator listing, 61-5 

Sprites: an introduction, 43; 

multi-coloured, 44, 45, 52; defining them, 48, 49, 85; positioning them, 52, 
53, 84; priority, 53, 54, 86; turning off, 54, 84; multi-colour listing, 72-7 

Standard character mode, 80 

Standard bit mapping, 122-6 

Sustain/release settings, 155 

Synchronisation, 148, 172, 187-8 

The Thinker listing, 130-4 

User-defined graphics: introduction, 95, 96; defining them, 96, 97; re-defining 

keys, 97-103; storing them, 103 
Uppercase, 30 

Voice 1, 170-5; filtering, 170; pulse width, 171; 

control register, 171-3 
Voices 2 and 3, 176 
Waveform selection, 155 
Waveforms, 181-2 
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